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