my (@menu_info,$foo);
$menu_info[1] = "hello";
$foo = "info";

print ${"menu_$foo"}[1];