Select Code to Download

while( my ( $outkey, $href ) = each %HoH )
{
    foreach my $inkey ( sort { $a <=> $b } keys %{ $href } )
    {
        # do stuff here

    my @inkeys = map
                 {
...
                    # original key name, return the array ref
                    [ $alf, $num, $_ ];
                 } keys %{ $href };