my %fruits = {
    orange => { name => 'Malus',           size => 123 },
    apple  => { name => 'Citrus sinensis', size => 10 },
};

##</code><code>##

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