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