my %color = (
    blue => 1, green  => 2, yellow => 3
    red  => 4, orange => 5, purple => 6 
);
print "The code for green is $color{green}\n";