#!/usr/bin/perl

%ahash = (     "enie" => "mouse",
		"sylvester" => "cat",
		"tweety" => "mouse",
		"roadrunner" => "bird"
	) ;

@ahash = %ahash;
@hashkeys= keys %ahash;
@hashvals = values %ahash;


print"printing \@ahash\n";
for ($val=0; $val<8; $val++) {
	printf " element %d is: <%s>\n",$val,$ahash[$val];
}

print"printing \@hashkeys\n";
for $val ( @hashkeys ) {
	printf " we had: <%s>\n",$val
}

print"printing \@hashvals\n";
for $val ( @hashvals ) {
	printf " we had: <%s>\n",$val;
}



printf "enie was a %s\n", $ahash{"enie"};
while (<>){
	chomp;
	if( $_ eq "?"){
		# print the whole table
		foreach $name (keys %ahash){
			printf "character %s was a %s\n",$name,$ahash{$name};
		}
	}else{
		if ( defined $ahash{$_} ){
			printf "%s was a %s\n",$_,  $ahash{$_};
		}else{
			printf "no %s\n",$_;
		}
	}
}