open(INF,"look.txt") || print "Cannot open look.txt file\n";
@look = <INF>;
close(INF);

@out = sort { (split '|', $a, 12)[4] <=> (split '|', $b, 12)[4] } @look;

foreach $line (@out) { 
@fields = @$line;

print "@fields[0],@fields[1],@fields[2],@fields[3],@fields[4],";
}