in reply to Menu's in perl

Note that writing this in perl may not be your best option - you may want to look into the program pdmenu 
--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/

[download]

In Section Seekers of Perl Wisdom