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