You could also do:

foreach (@{$hash{"array"}})
        {
        print "$_\n";
        }

[]'s -DBC