Help for this page
@G1_Hash{ qw/HO KO.../ } = ();
push (@G1_out, $input), next if exists $G1_Hash{$prefix}