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],";
}

##</code><code>##

accred|143|0|0|412|0|0|0|0|0|0|0|0|
accu-b|36|0|0|103|0|38|0|0|0|0|2|0|
accua|35|0|0|27|0|37|0|0|0|0|1|0|
accur|173|0|0|486|0|0|0|0|0|0|0|0|
accura|43|0|0|1022|0|4|0|0|0|0|0|0|
accurat|215|0|0|730|0|233|0|0|0|3|0|0|
accweb|1|0|0|0|0|38|10|2|0|0|0|0|
acdev|0|0|0|0|0|3|0|0|0|0|0|0|
aceas|11|0|0|28|0|36|0|0|0|0|0|0|
acecok|127|0|0|58|0|37|0|0|0|0|0|1|
acegi|76|0|0|63|0|102|20|1|0|0|0|0|
aceliv|4|0|0|275|0|59|0|0|0|3|0|0|
ace130|31|0|0|93|0|19|0|0|0|0|0|0|