I think I'd do something like this (assuming that we know the arrays are the same length):

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

--
<http://www.dave.org.uk>

"Perl makes the fun jobs fun
and the boring jobs bearable" - me