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


$_="ein kleiner Test";
@_=("TEST", "TEST2", 3, 4, 5);
&test;
$_="kein Test";
&test("TEST", "TEST2", 3, 4, 5);