#!/usr/bin/perl -w 


use CGI qw(:standard);
use strict; 



my  %yummy = (

"banana" => 'yellow',
"apple" => 'green', 
"tangerine" => 'orange' 

);

print_hash(\%yummy); 

sub print_hash { 

my $food = $_[0]; 

my  %hash = %$food; 
 
my $key; 
my $value; 

foreach $key (keys %hash) { 
print $value = $hash{$key}; 
print "fruit: $key is  $value\n\n"; 

}


}