while (<DATA>) {
  my ($one, $two) = split;
  push @{$seen{$one}}, $two;
}