Select Code to Download

#!/usr/bin/perl

...
       "  Currency: %s;  Amount: %s;  PaidOut: %s; Fees: %s;\n",
    $fDate, $fType, $fDetails,
    $fRef, $fCurrency, $fAmount, $fPaidOut, $fFees;

my $aoa = csv (in => \$line);

my $aoa = csv (in => $file);

foreach my $record (@$aoa) {
    my ($date, $type, $dtls, $ref, $curr, $amt, $paid, $fees) = @$reco
+rd;
    ...;
    }