$food = \@array;
print +{@$food}->{Corn}; # yay!
print @{{@$food}}{Corn,Bannana}; # slice!