use warnings;
sub list { ('a','b','c') }
my @all= list();
my $last= list(); # Doesn't produce a warning