Like what BrowserUk said, but with a twist:

my %menu = (
     info => \@menu_info,
     sell => \@menu_sell,
);

# ...
# Select what you want

my $menu = $menu{$foo};
# ... Do stuff like
print $menu->[0]->[1];
print join(',', @{$menu->[1]}),"\n";
[download]