my %HoA= (
    D=>[4], E=>[5], F=>[6], Foo=>[3], G=>[7], H=>[8],
);
{
    local( $HoA{Foo} )= $HoA{Foo};
    for my $av (  delete $HoA{Foo}, values %HoA  ) {
        print $av->[0], $/   if  $av;
    }
}
print $HoA{Foo}[0], $/;