perl -MO=Deparse,-p,-q -e 'my $i=0;for (1..456) {print (($i%100)?"":"\n\t"),(($i%10)?".":(int(($i%100)/10)));$i++;};print "\n";'
(my $i = 0);
foreach $_ (1 .. 456) {
    (print((($i % 100) ? '' : "\n\t")), (($i % 10) ? '???' : int((($i % 100) / 10))));
    (++$i);
}
print("\n");