test1('A1',,'A3','A4');
test1('B1','','B3','B4');

sub test1
{
        print "args=" . join(',',@_) . "\n";
        my ($arg1, $arg2) = (shift @_, shift @_);
        my @argrest = @_;
        print "arg1=$arg1, arg2=$arg2, argrest=@argrest\n\n";
}