Select Code to Download

my (%hash, @G1_out, @G2_out, ...);
$hash{$_}=\@G1_out for (qw (H0 ...));
...
  my $prefix=substr($input, 0, 2);
  push @{$hash{$prefix}}, $input;
}