Select Code to Download

#!/usr/bin/perl

...
  print $incolumns "$_ @{ $group_by{ $_ } }{qw(Jan Feb Mar)}\n";
  }
close $incolumns;

Account    Entity    Unit    Jan  Feb  Mar
-------    ------    ----    ---  ---  ---
Account01  Entity01  Unit01  12   15   18
Account02  Entity02  Unit02  10   11   12