A perl-enhanced sort program