my %edit_name = ();
  my %edit_type = ();
  foreach my $key ( keys %ARGS ) {
    if ( $key =~ m/^edit_name_(\d+)$/ ) {
      $edit_name{$1} = $ARGS{$key};
    } elsif ( $key =~ m/^edit_type_(\d+)$/ ) {
      $edit_type{$1} = $ARGS{$key};
    }
  }

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