#!/usr/bin/perl

use strict;

open(DEF,"<definitivototal2");

my %definitivo;

while(<DEF>){
    my ($est,@desc) = split/\s+/;
    $definitivo{$est} = join " ",@desc
}



open(DESC,"<unidos2");

my %descripcion;

while(<DESC>){
    my @entries = split;
    $descripcion{$entries[0]} = $entries[1];


    if (exists $definitivo{$entries[0]}){

	print $entries[0],"\t",$entries[1],"\t",$definitivo{$entries[0]},"\n";

    }
}