In[]:=
(*MyPopupMenu*)MyPopupMenu[val_]:=Mouseover[val,PopupMenu[x,{"same","menu",Delimiter,"for each box"},"click to choose"]];MakeColumn[name_,values_]:=Column[{Column[{Rotate[name,Pi/2]}],Column[MyPopupMenu[#]&/@values,Background->{Red,Green,Blue}]},BaselinePosition->Bottom];Row[{MakeColumn["good_morning",{1,2,3}],MakeColumn["frens",{"!","@","#"}],MakeColumn["omg_ponies",{9,8,7}]}]
Out[]=
| |||
| |||
| |||