while (<$fh>) {
        chomp;
        my ($key, $pos) = split /\s+/;
        if (!$positions{$key}) {
            $positions{$key} = [$pos];
        } else {
            my $ref = $positions{$key};
            push @$ref,$pos;
        }
   }