my @fruit_set = qw/apple banana orange mango/;
my @vegie_set = qw/onion tomato lettuce eggplant/;

my (%fruit, %vegetable);
@fruit{@fruit_set}     = (1) x @fruit_set;
@vegetable{@vegie_set} = (1) x @vegie_set;