print "What is their name?\n";
chomp($name = <STDIN>);
chomp($number = <STDIN>);
$dbm{$name} = $number;
print "$name = $dbm{$name} added to the list!\n";