This should do what you mean:

print "Name: "
            textfield(     # this field contains the name (e.g. 'georg
+e','bill', whatever)
                -name => 'name',
                -size => 100);

print "age: "
            textfield(     # this is the age of whoever's name is in t
+he field above (possibly)
                -name => 'age',
                -size => 5);

my $name = param('name'); # the name we got back is placed in the vari
+able $name
my $age = param('age'); # the age we got back is placed in $age

$stats{$name} = $age; # lets associate $name with $age in a hash
[download]



-nuffin
zz zZ Z Z #!perl

so you actually want the following to happen?

%hash = ( 'george@foo.com' => 'george ); # how it is when george is ad
+ded
%hash = ('bill@host.com' => 'bill'); # bill clobbers george
[download]

You can do this much more simply by using Storable or Data::Dumper without using a hash. Hashes are ment to store large amounts of data. You are more likely to find an array more suitable ([ 'george@foo.com', 'george' ]), or using your hash to describe who george is:

%hash = (
      email => 'george@foo.com',
      name => 'geroge fubar',
      age    => 68,
);
[download]

Which you can acheive by writing to hash entries like your params:

my $email = params('email');
my $name = params('name');

$hash{email} = $email;
$hash{name} = $name;
[download]



-nuffin
zz zZ Z Z #!perl

print start_form(),
  table(
    Tr(
        td("Name: "),
        td(
            textfield(
                -name => 'name',
                -size => 40
            )
        )
    ),
    Tr(
        td("Email: "),
        td(
            textfield(
                -name => 'email',
                -size => 40
            )
        )
    ),
    Tr( td(), td(submit) ),
  ),
  end_form(), hr();

if ( param() ) {
my $email = param('email');
my $name = param('name');

    if ( param('email') ne "" ) {
        tie %this, 'SDBM_File', $list, O_CREAT | O_RDWR, 0644;

        if ( !tied %this ) {
            warn("database unsuccessful $!.\n");
        }

################# Next line
        ethis{'email'} = "$name"; }
[download]

This is the structure of the hash you want:

%hash = ( # george is added
      'george@host.com' => 'george',
);

%hash = ( # bill is added
      'george@host.com' => 'george',
      'bill@company.net' => 'bill',
);
[download]

But you're not setting with the actual value of the email field that has been passed. You're setting the key to the value 'email', instead of an email address, thus producing

%hash = ( # george is added
      'email' => 'george',
);

%hash = ( # bill is added
      'email' => 'bill',
);
[download]

The outcome is that they're names are overwritten, because you're accessing the field by the same key, which is 'email', instead of $email, they're addresses.

Your fix is:

$this{$email} = $name;
[download]



-nuffin
zz zZ Z Z #!perl