while (my $name,$value) = each %{$List{$key1}{$key2}{$key3}{$key4}{$key5}}) { .. }