use strict;
use warnings;
use CGI;
use CGI::Pretty;

my %test;
my @array = qw(1 2 3 4 5 6 7 8 9);
my $q = new CGI;

$test{ shift @array } = \@{ [ @array[0,1,2] ] };

print $q->start_table(-border=>"1");
print map { $q->Tr($q->td($_),$q->td($test{$_})) } keys %test;
print $q->end_table(), "\n\n";