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

##</code><code>##

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

##</code><code>##

my ($key, $t);

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

##</code><code>##

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