Help for this page
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|