@a = map { "$a[$_]-$b[$_]" } 0 .. $#a;