#!/usr/bin/perl


open(FILE1, "$ARGV[0]")|| die "Can not open $ARGV[0]!!\n";
open(FILE2, "$ARGV[1]")|| die "Can not open $ARGV[1]!!\n";
open(FILE3, "$ARGV[2]")|| die "Can not open $ARGV[2]!!\n";
open(FILE4, "$ARGV[3]")|| die "Can not open $ARGV[3]!!\n";

%org1 =();
while(<FILE1>){
	chomp($_);
	my @field = split(" " , $_);
	$org1{$field[0]} = $field[1];
	#$count++;
}

%org2 =();
while(<FILE2>){
	chomp($_);
	my @field = split(" ", $_);
	if($org1{$field[0]}){
		$org2{$field[0]} = $field[1];
	}
}

%org3 =();
while(<FILE3>){
        chomp($_);
        my @field = split(" ", $_);
        if($org2{$field[0]}){
                $org3{$field[0]} = $field[1];
        }
}

%org4 =();
while(<FILE4>){
        chomp($_);
        my @field = split(" ", $_);
        if($org3{$field[0]}){
                $org4{$field[0]} = $field[1];
        }
}


#while ( my ($key, $value) = each(%org4) ) {
#	print "$key\t$value\t",$org1{$key},"\t",$org2{$key},"\t",$org3{$key},"\n";
#}
$count = 0;
for my $key ( sort keys %org4 ) {
	#$count++;
	print "$key\t",$org1{$key},"\t",$org2{$key},"\t",$org3{$key},"\t",$org4{$key},"\n";
}

#$enum = keys(%org4);

#print "$count = $enum\n";