Select Code to Download

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

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