Select Code to Download

@array =  (Bannana, Fruit, Corn, Vegetable);
%hash  =  @array;# (Bannana => Fruit, Corn => Vegetable);

$food = \@array;
print $$food{Corn}; # woops!