perl -ne '$a[$h{$_}]= ""; push @a, $_; $h{$_}= $#a; END{print for @a}' file #### perl -ne '$h{$_}= $.; END{print for sort {$h{$a} <=> $h{$b}} keys %h}' test.txt