while (<DATA>) { 
        my ($one, $two) = split; 
        $seen{$one} = [$two, exists $seen{$one} ? @{$seen{$one}} : () ]; 
}

##</code><code>##

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