open FILE1, "data.txt" or die;


my %hash;
while (my $line=<FILE1>) {

chomp $line;

(my $word1,my $word2) = split( /\s+/, $line);


$hash{$word1} = $word2;
}


@values = values(%hash);

print @values;