open (ORGDB,"<$database");
@ODB=<ORGDB>;
close (ORGDB);

@ODB = sort(@ODB);

foreach $rec (@ODB){
	chomp($rec);
	($ENTRY_A,$ENTRY_B,$ENTRY_C)=split(/\|/,$rec);

print "
$ENTRY_A <BR>
$ENTRY_B <BR> Sorted by ENTRY_B
$ENTRY_C <BR>

\n";