my @l = (1,2,3,4);
my @m = qw(a b c d e f g h);
for (@l) {
  for (@m) { print " $_ " }
  print " : $_\n";
}

outputs

 a  b  c  d  e  f  g  h  : 1
 a  b  c  d  e  f  g  h  : 2
 a  b  c  d  e  f  g  h  : 3
 a  b  c  d  e  f  g  h  : 4