$FoodHash{green}{big}{""} = "watermelon";
$FoodHash{green}{big}{sweet}{""} = "1234";


##</code><code>##

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/