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

##</code><code>##

$ perl -le"print(1),2"
1

##</code><code>##

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