my $fruit = 'orange';
print $fruits{ $fruit }->{name}, "\n";
print $fruits{ $fruit }->{size};