my avec ou sans () - trou de mémoire idiot

Je fais partie des gens qui apprécient Perl /aussi/ pour sa tolérance à
la suppression des parenthèses inutiles (ouf!). Mais j'ai été surpris en
exécutant ceci (recopié à peu près tel quel du "Spécial Perl" de Linux
Magazine :

----------

sub crible
{ my ($n) = @_;

my @nombres = (2..$n);
my @premiers = ();

while (@nombres)
{
my $prem = shift @nombres;
print "$prem\n";
push @premiers, $prem;
@nombres = grep { ($_ % $prem)!=0 } @nombres;
}

return @premiers;
}

$|=1;

print "on y va\n";
@essai = crible 36000;
print "hop", join " ",@essai, "\n";

-------

de voir que si je remplace :

{ my ($n) = @_;

par (et ça me semblait admissible) :

{ my $n = @_;

eh bien le programme sort direct sans rien imprimer, ni apparemment
exécuter. Bug, ou feature ???

ActivePerl 5.8.3 build 809 utilisé depuis SCiTE sous XP Home (j'ai honte)

Quelqu'un a-t-il une idée de ce qui se passe ???