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