sub machwas (\@\@) {
    my ($arrayref1, $arrayre2) = @_;
    ....
}

my @a = 0 .. 9;
my @b = 'a' .. 'f';

machwas(@a, @b);