foreach my $key1 (keys %$foo)
{
    foreach my $key2 (keys %{$foo->{$key1}})
    {
        # etc....

        $bar->[$idx1][$idx2]..[$idx5] = $foo->{$key1}{$key2}..{$key5};