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