print "What is their name?\n";
my $name = $_;
#if ($name ne "") {
chomp($name = <STDIN>);
$dbm{$name} = "";
print "Added to the list!\n";