#!/usr/bin/perl -w

use strict;

my %fruit = ( apple => 'green',
              orange => 'orange',
              banana => 'yellow' );

print ${{reverse %fruit}}{'yellow'};