Select Code to Download

test1('A1',,'A3','A4');
test1('B1','','B3','B4');
...
        my @argrest = @_;
        print "arg1=$arg1, arg2=$arg2, argrest=@argrest\n\n";
}

args=A1,A3,A4
arg1=A1, arg2=A3, argrest=A4

args=B1,,B3,B4
arg1=B1, arg2=, argrest=B3 B4