&egal('irgend','welche','parameter');

sub egal {
 my @parameter = @_;
 print ++$x, ': ', $_, "
" foreach @parameter;
}


1: irgend
2: welche
3: parameter