#!/usr/bin/perl -w
use strict;
print "Content-type:text/html\n\n";
my @array = qw(var1 var2 var3);
my %HoH = ();
my $i = 0;
foreach my $element (@array){
	$i++;
	$HoH{$element} = { 'key'.$i.'1', 'value'.$i.'1', 'key'.$i.'2', 'value'.$i.'2', 'key'.$i.'3', 'value'.$i.'3' };
}
foreach my $key1 (sort keys %HoH){
	foreach my $key2 (sort keys %{ $HoH{$key1} }){
		print "<br>$key1 > $key2 > $HoH{$key1}{$key2}\n";
	}
}