%ab = map { $a[$_].$b[$_] => $_ } 0..$#a;
...
unless (exists $ab{$a.$b}) { do_something() }