perl -MO=Deparse,-p and perltidy say

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

Notice the parens around print, its essentially like

$ perl -le"print(1),2"
1
[download]

2nd part

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