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

##</code><code>##

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