arrayComp(\@a, \@b);
sub arrayComp {
    my ($aref, $bref) = @_;
    my @a = @$aref;
    my @b = @$bref;