my %hash;
foreach my $pair (qw/1_one 1_two 2_one 2_two/) {
  my ($key, $val) = split('_', $pair);
  if (not exists $hash{$key}) {
    $hash{$key} = [];
  }
  push @{ $hash{$key} }, $val;
}