sub test
{
 my $v1=shift(@_);
 my @v2=@_;
 print "V1=$v1 V2=@v2\n";
}

&test("ein kleiner Test", "TEST", "TEST2", 3, 4, 5);