Select Code to Download

  foreach my $key ( keys %ARGS ) {
    if ( $key =~ m/^edit_name_(\d+)$/ ) {
...
      $m->out( "<p>Edit type $num = $type</p>" );
    }
  }

  my %edit_name = ();
  my %edit_type = ();
...
  foreach my $num ( sort { $a <=> $b } keys %edit_type ) {
    $m->out( "<br />Type number $num is " . $edit_type{$num} );
  }

  my %edit = ();
  foreach my $key ( keys %ARGS ) {
...
           );
  }
  $m->out( "</table>" );