foreach $elem_b(@b) {
  foreach $elem_a(@a) {
.
.
  }
}