It looked more natural to me to express the keys and values in reverse, than have to force an array into it:

my %hash = ( apple => fruits,
             orange => fruits,
             celery => vegetable );
[download]