my %h = ();
while (<$fh>) {
    $h{ $_ } ||= $.;
}
close $fh;
print sort { $h{a} <=> $h{b} } keys %h;