I believe the problem has to do with your use of parentheses. Perl is parsing it differently from the way your brain is. With the statement print (($i%100)?"":"\n\t"),(($i%10)?".":(int(($i%100)/10)));, you actually have print( ($i%100)?"":"\n\t" ), and then a ternary operator in void context after the comma.

The outer set of parentheses is actually wrapping the arguments of your print statement, so what you think is the second argument to print is actually doing nothing.

To fix it, you need to enclose both elements of the list in another set of parentheses: print( (($i%100)?"":"\n\t"), (($i%10)?".":(int(($i%100)/10))) );