@arr=map {[$_ .. $_+39]} (0..19);
for( $i=0; $i<@arr; $i++ ) {
  for( $j=0; $j<@{$arr[$i]}; $j++ ) {
    printf "%02d, ", $arr[$i]->[$j];
  }
  print "\n";
}