Help for this page

Select Code to Download


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