use strict;
use warnings;
while(<>){
my @val = split/\t/;
 
if (exists $hash_chr{$val[$#val]}){
	   next;
	}    
	else{
	      $hash_chr{$val[0]}=$value[$#val];
          
	  }
}