Select Code to Download

print for map{ join '|', map sprintf( "%02d", $_ ), $_*8+1 .. $_*8+8 }
+ 0 .. 7;;
01|02|03|04|05|06|07|08
...
41|42|43|44|45|46|47|48
49|50|51|52|53|54|55|56
57|58|59|60|61|62|63|64

print for  unpack '(A24)*', join'|','01' .. '64', '';;
01|02|03|04|05|06|07|08|
...
41|42|43|44|45|46|47|48|
49|50|51|52|53|54|55|56|
57|58|59|60|61|62|63|64|