[Moscow.pm] Странности и неожиданности Perl

[Denis Evdokimov]

я сдаюсь, абсолютно и бесповоротно.
я не понимаю, почему так

my @aaa = qw();
my @bbb;

sub get_aaa {@aaa}

print "\nget_aaa + 0 ->";
print (get_aaa + 0);

print "\nget_aaa+0 ->";
print (get_aaa+0);

print "\n0+get_aaa ->";
print (0+get_aaa);

print "\n0 + get_aaa ->";
print (0 + get_aaa);

print "\npush @bbb, get_aaa ->";
print (push @bbb, get_aaa);