my @a = qw(1 11);
my @b = qw(1a 2b);

($a,$b) = qw(11 a);
print "Why am I printing?$/" unless (exists { map { $a[$_].$b[$_] => $_ } 0..$#a }->{$a.$b});