- my @cells;
- push @cells,
- map { defined $borrower->{$_} ? $borrower->{$_} : q{} } @borrower_fields;
- push @cells, map { $overdue->{$_} } @item_fields;
- push @cells, $type, $daycounttotal, $amount;
- say {$fh} join $delim, @cells;
+ if ($filename) {
+ my @cells;
+ push @cells,
+ map { defined $borrower->{$_} ? $borrower->{$_} : q{} }
+ @borrower_fields;
+ push @cells, map { $overdue->{$_} } @item_fields;
+ push @cells, $type, $unitcounttotal, $amount;
+ say {$fh} join $delim, @cells;
+ }
+}
+if ($filename){
+ close $fh;