Select Code to Download

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

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