%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";