#!/usr/bin/perl
#
my %hash;
open(INPUT, 'Fh_Sm.temp');
while (my $linea = <INPUT>) {
    chomp $linea;
    my ($primero, $segundo) = split '\t',$linea;
    my $key = "$primero $segundo";
    next if exists $hash{$key};
    $hash{$key} = $linea;
}
close(INPUT);

while (my ($key, $val) = each %hash) {
    print "$val\n";
}