( my $i = 0 );
foreach $_ ( 1 .. 456 ) {
    (
        print( ( ( $i % 100 ) ? '' : "\n\t" ) ),
        ( ( $i % 10 ) ? '???' : int( ( ( $i % 100 ) / 10 ) ) )
    );
    ( ++$i );
}
print("\n");