foreach my $key ( keys %ARGS ) {
    # skip any arguments that aren't of interest
    next if ( $key !~ m/^edit_name_(\d+)$/ );

    my $num = $1; # captured from the regexp
    my $name = $ARGS{$key};

    $m->out( "<p>Edit field $num = $name</p>" );
  }