my %fruit;
$fruit{'apple'} = 'red';
@fruit{'lemon', 'lime'} = ( 'yellow', 'green' );
print Dumper \%fruit;

##</code><code>##

my %auto;
$auto{'ford'}{'F150'}{'color'} = 'RED';
@auto{'ford'}{'F150'}{'tires','lights'} = ('ALL SEASON','HALOGEN');
print Dumper \%auto;