use strict;
use warnings;

my $sampleData = <<EOF_DATA;
17|5|176|1288|1387
163|1|523|30|6
2592|2|9|1288|6174
152|1|170|1845|473
3|13|50|30|1766
EOF_DATA

my %esList;

open my $inFile, '<', \$sampleData or die "Unable to open file - $!\n";

while (defined (my $line = <$inFile>)) {
    my ($tn, $err, $ent, $es, $coid) = split /\|/, $line;

    $esList{$es} = $line if ! exists $esList{$es};
}
close $inFile;

print $esList{$_} for sort {$a <=> $b} keys %esList;

##</code><code>##

163|1|523|30|6
17|5|176|1288|1387
152|1|170|1845|473