Select Code to Download

foreach (@fruit{'apple','banana','plum'}){$_=1}

#This will NOT work as intended
$value="'apple','banana','plum'";
foreach (@fruit{$value}){$_=1}
#doesn't work!

@array=("apple","banana");
push @array, "plum";
foreach (@array){$fruit{$_}=1}

foreach (@array){$fruit{$_}=1} # initialize fruit set