# ex_05-1
# Learning Perl on Win32 Systems, Exercise 5.1

%map = qw(red apple green leaves blue ocean);
print "A string please: "; chomp($some_string = <STDIN>);
print "The value for $some_string is $map{$some_string}\n";