print "Division by N\n";
for my $n (1..100) {
    if ( $n/100 == 0.01*$n ) { print "t" }
    else { print "n" }
}

Division by N
ttttttttttttttttttttttttttttttttttntttttntttttntttttttttntttttttttttnntttttttttttnnttttttttttnnttttt