while (  my ( $key, $value)  = each $HoA ) {
        print $key . " ";
        for ( @$value ) {
            print "$_ ";
        }
        
    }