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