title: Perl: Return anonymous array from a subroutine
body: <p>I'm trying to return an anonymous array from a subroutine, however, when dumping the returned variable I only see one value (I'm expecting two).</p>
  
  <p>Here is my code:</p>
  
  <pre><code>#!/usr/bin/perl
  
  use strict;
  use warnings;
  
  use Data::Dumper;
  
  my $fruits_ref = generate_fruits();
  print "Fruits: " . Dumper($fruits_ref) . "\n";
  
  sub generate_fruits
  {
      return ("Apple", "Orange");
  }
  </code></pre>
  
  <p>This outputs:</p>
  
  <pre><code>Fruits: $VAR1 = 'Orange';
  </code></pre>
  
  <p>How do I get the subroutine to return that array ref?</p>