Select Code to Download

for (1..100) {
    print "$_ ";
    print "\n" if ($_ % 5 ==0); # add a break (or other string) every 
+5 elements 
}

@foo = map {$_*5} (1..10); # generate a list by fives.
print join " ", @foo,"\n\n"; # see the fives.
...
    print "\n  </tr>\n";
}
print "</table>\n\n";