Select Code to Download

frobnitz( $HoA{Foo} )   if  $HoA{Foo};
for my $key (  keys %HoA  ) {
    frobnitz( $HoA{$key} )   if  $key ne "Foo";
}

my %HoA= (
    D=>[4], E=>[5], F=>[6], Foo=>[3], G=>[7], H=>[8],
...
    }
}
print $HoA{Foo}[0], $/;

sub FirstIfKeys {
    my $hv= pop @_;
...
    for my $key (  FirstIfKeys( "Foo", \%HoA )  ) {
        ...
    }