print "Index: $_ => \@a: $a[$_], \@b: $b[$_]\n" 
    for grep { $a[$_] != $b[$_] } 0 .. $#a;