Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        print "<br>$key1 > $key2 > $HoH{$key1}{$key2}\n";
    }
}

var1 > key11 > value11
var1 > key12 > value12
...
var3 > key31 > value31
var3 > key32 > value32
var3 > key33 > value33