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