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