my @e = 'a'..'z';
my @n = 1..10;

my $href;

my $ie = 0;
OUTER:
my $e = $e[ $ie ];
my $in = 0;
INNER:
my $n = $n[ $in ];
$href->{ $e }{ $n } = 1;
$in = $in + 1;
if( $in < @n ) { goto INNER; }
$ie = $ie + 1;
if( $ie < @e ) { goto OUTER; }