use CGI qw/ *table *Tr /; use constant NUM_CELLS => 12; use constant NUM_COL => 3; sub fill_table { my @array = read_db; my @td; push @td, $cgi->start_Tr(); foreach ( @array[ 0 .. NUM_COL - 1 ] ) { push @td, $cgi->td($_); } push @td, $cgi->end_Tr; return @td; }