foreach $s_pattern (sort keys(%{$patterns{$gen}})) {
  $p_pattern = ${$patterns{$gen}}{$s_pattern};
  # ...
}