#! perl -slw
use strict;
use CGI qw[:standard *table];

my @data = 1 .. 103;

print start_table( {-border=>1} );
for( my $i = 0; $i < $#data; $i += 5 ) {
    print
        Tr(
            td(
                [
                    map{
						defined $_
                        ? textfield( { -name=>$_, -default=>$_ } )
						: '&nbsp;'
                    } @data[$i .. $i+4]
                ]
            )
        );
}
print end_table;