#ex_05-1a
#Learning Perl Appendix A, Exercise 5.1
%map = ('red','apple','green','leaves','blue','ocean');
print "A string please: "; chop($some_string = <STDIN>);
print "The value for $some_string is $map{$some_string}\n";