#!/usr/bin/env perl

use strict;
use warnings;
use autodie;

my @files = glob 'pm_1206312_in*';
my %uniq;

{
    open my $fh, '<', shift @files;

    while (<$fh>) {
        my ($k, $v) = split;
        $uniq{$k} = $v;
    }
}

for my $file (@files) {
    my %data;
    open my $fh, '<', $file;

    while (<$fh>) {
        my ($k, $v) = split;
        $data{$k} = $v;
    }

    for (keys %uniq) {
        delete $uniq{$_} unless exists $data{$_} and $uniq{$_} eq $data{$_};
    }
} 

printf "%s %s\n", $_, $uniq{$_} for sort keys %uniq;