Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
  return unless (%hash);
  printf $ofh "%s\n", join '|', @hash{@keys_in_display_order};
}

Select or download this

cat output.file
Activity|Status|Valuation
C2012-0106|ISSUED|$339,784.94
C2012-0107|ISSUED|$306,963.74