in reply to Selecting Correct Array

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";