#!/usr/bin/perl

use strict;

open(DESC,"<descripcion");

my %descripcion;

while(<DESC>){
    my ($ident,@desc) = split/\t/;
    ###print "---",@desc;
    $descripcion{$ident} = join " ",@desc;
}

open(DEF,"<estdef");

my %definitivo;

while(<DEF>){
    my @entries = split;
    my ($trans,$geneid) = split/\_/,$entries[0];


    if (exists $descripcion{$geneid}){

	print $entries[1],"\t",$descripcion{$geneid},"\n";

    }
}