Select Code to Download

while (($s_pattern,$p_pattern) = 
             each %{$patterns{$gen}}) {             
# ...
}

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