Sub Argumento Perl

E ae Linuxers!!!!
print @_;
sub argumentos
{
print "@_\n";
}
&argumentos("primeiro", "segundo&quot<IMG SRC="images/forum/icons/icon_wink.gif">; # mostra primeiro segundo
&argumentos("maçãs", "e", "uvas&quot<IMG SRC="images/forum/icons/icon_wink.gif">; # mostra maçãs e uvas
sub primeiros
{
print "Primeiro argumento: $_[0]\n";
print "Segundo argumento: $_[1]\n";
}
&primeiros;
EU não entendo, tem alguma coisa errada nestas sub rotinas?

Obrigado.
Ozzymaia