for my $b ( 0 .. $#{$array_of_lists->{$b}} )

##</code><code>##

        for my $b ( 1 .. scalar @{$array_of_lists{$a}} )