#!/usr/bin/perl -w

use strict;
module library
use CGI qw(:standard);
use CGI::tab;

my %information = (
    txt_foo => ['chk_foo','name_foo','cost_foo','number_foo'],
    txt_bar => ['chk_bar','name_bar','cost_bar','number_bar'],
    txt_baz => ['chk_baz','name_baz','cost_baz','number_baz'],
);

print
    header,
    start_html,
    start_tabs(75,150,225,300);

for my $key (keys %information) {
    print $key,t;
    print $_,t for @{ $information{$key} };
}

print 
    end_tabs,
    end_html;