perlで調べてもわからなくて死にそうになった事でも

こんな感じのプログラムがあってさ
@_の意味がわかんねぇよ死ねよごるぁ！！
とか思って調べてもグーグルさんじゃ記号を受け付けて無くて検索出来ない

まぁ、適当にプリントデバッグして、引数のことだって理解したけどね
そして、ベクトルが@から始まるってことも

while (my $a = <STDIN>) {
aaa($a);
}

sub aaa{
my ($f) = @_;
chomp $f;
print "$f\n";
}