@G1_Hash{ qw/HO KO.../ } = ();

##</code><code>##

push (@G1_out, $input), next if exists $G1_Hash{$prefix}