for $i ( 1..2 ) {
  for $j ( 5..6 ) {
    print $i, $j, "\n";
  }
}