use strict;
use warnings;

my %cs101 = ("joe"=>	"80" );

print "Choose which hash\n";
chomp (my $input = <STDIN>);
#my $whichhash=\%cs101;
my $whichhash="$input";

sub hashvalues {
   while( (my $key, my $value) = each (%$whichhash) ) {
	   print "$key $value\n";
   }
}

die "Illegal hash name: $input\n" unless $input =~ /^\w\w+$/;
eval '$whichhash = \%'.$input;
die "Input: <$input> is not a hash name: $@\n" if $@;


&hashvalues;