use warnings; use strict;

open my $INF, "<", "look.txt" or die "cannot open";
my @look = <$INF>;
close($INF);

my @key = map { (split /\|/)[4] } @look;
my @out = @look[sort { $key[$a] <=> $key[$b] } 0 .. @look - 1];

for my $line (@out) {
        my @fields = split /\|/, $line;
        print join(",", @fields[0 .. 4]), "\n"; 
}

__END__