:
#!/usr/bin/perl

use strict;
use warnings;
use File::IO;

my %no_dupes;
 
while (<>) {
 chomp;
 $no_dupes{$_} = $. if (! exists $no_dupes{$_});
 }
 
$result_file="C:\Users\spullabhotla\Desktop\TestToRemoveDuplicates.txt";
 open (RESULT_FILE,">$result_file");
 
foreach my $line (sort {$no_dupes{$a} <=> $no_dupes{$b}} keys %no_dupes){
 print RESULT_FILE "$line\n";
 }