sub test
{
 my ($w1,$w2,$w3,@a1)=@_;
 # oder:
 my $w1=shift(@_);
 my $w2=shift(@_);
 my $w3=shift(@_);
 my @a1=@_;
 # oder:
 my $w1=$_[0];
 my $w2=$_[1];
 my $w3=$_[2];
 my @a1=@_[3..$#_];
}