Select Code to Download

$array_of_lists{$key} = splice(@{$array_of_lists{$key}}, $t, 1);

@{$hash_of_arrays{$key}} = splice( ... );

my ($key, $t);

...
{
    for $t ( 0 .. scalar @{$array_of_lists{$key}} )
    {

for my $key ( sort {$a<=>$b} keys %hash_of_lists )
{
    for my $t ( 0 .. $#{$hash_of_lists{$key}} )
    {