in reply to sorting flat file databases

open( ORGDB, "|sort -t '|' -k2 $database");

[download]

In Section Seekers of Perl Wisdom