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;