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