That seems reasonable to me. There's always more than one way to do it.

Here's the more traditional version of yours:

for (0..$#a) {
   $a[$_] = $a[$_] . "-" . shift(@b);
}
[download]

Update: I see now I missed the redundant $_ assignment in the original node. Too bad whoever -- this didn't help me out with an explanation :)