sub get_array { my @x = (4, 5, 6); return @x; }
sub get_list { return (10, 11, 12, get_array()); }

my @as_array = get_list();
my $as_scalar = get_list();

print "last list item: $as_array[-1]\n";
print "list in scalar: $as_scalar\n";
__END__
last list item: 6
list in scalar: 3