Big Table

#!/usr/bin/perl -w use strict; print "Big Table"; for (my $i = 0; $i < 2550; $i += 1) { print ""; for (my $j = 0; $j < 20; $j += 1) { print "

" . rand(12); } }