@arr=map {[$_ .. $_+39]} (0..19);
print join("\n", map { my $l=$_; join(", ", map { sprintf "%02d", $_ } @$l) } @arr), "\n";