foreach my $key ( keys %ARGS ) {
    if ( $key =~ m/^edit_name_(\d+)$/ ) {
      my $num = $1; # captured from the regexp
      my $name = $ARGS{$key};
      $m->out( "<p>Edit name $num = $name</p>" );
    } elsif ( $key =~ m/^edit_type_(\d+)$/ ) {
      my $num = $1; # captured from the regexp
      my $type = $ARGS{$key};
      $m->out( "<p>Edit type $num = $type</p>" );
    }
  }