print is a list operator and doesn't parse the way you're expecting it to.

 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");
[download]