use warnings; use strict;

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

my @out = sort { (split /\|/, $a)[4] <=> (split /\|/, $b)[5] } @look;

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

__END__