#!/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 "
$key1 > $key2 > $HoH{$key1}{$key2}\n";
}
}
####
var1 > key11 > value11
var1 > key12 > value12
var1 > key13 > value13
var2 > key21 > value21
var2 > key22 > value22
var2 > key23 > value23
var3 > key31 > value31
var3 > key32 > value32
var3 > key33 > value33