use feature qw( say );
use Data::Dumper;

sub foo{
  return (0, 1);
}

my $var = \(foo());  # $var IS a reference to the last item of *list* (0, 1)
say Dumper($var);
# Prints $VAR = \1;

##</code><code>##


sub foo{
  return ('blue', 'green');
}
my $var = \(foo());
say Dumper($var);
# Prints $VAR = \'green';

##</code><code>##

use feature qw( say );
use Data::Dumper;

sub foo{
  return [ 'blue', 'green' ];
}

my $var =  foo();  # Give me my ARRAY ref!
say Dumper($var);
# Prints $VAR1 = [
#          'blue',
#          'green'
#        ];