Select Code to Download

my @AoA;
foreach (@transactions) { #there are dozens of employee numbers…
        push @{$AoA[$_]}, $_;
}

my %HoA;
foreach (@transactions) {
...
        $HoA{NUM}  = $num;
        push @{$HoA{VALS}}, $value;
}