@indices = grep
             { $a[$_] eq $a and $b[$_] ne $b }
               (0..$#a);