Select Code to Download

if (
   my ($open_bal, $net_trx, $cash_total,
...

   print ...
}

use List::MoreUtils qw( apply );

...
) {
   print ...
}