My first thought is "Use a hash!". eg.

my %menu = { info => \@menu_info, sell => \@menu_sell };

#then..
....
print $menu{info}[0]; # First thing in the @menu_info array.
print $menu{sell}[0]; # First thing in the @menu_sell array.
[download]

Update: I should have mentioned that:

my $foo = 'info';

print $menu{$foo}[0]; # will print the first item in @menu_info as wel
+l
[download]

Update2: changed @ to $ on array element references. Thanks Tadman.

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]

Also to point out that symbolic references are generally a (very) bad idea and point out this article by the Dominus, detailing how and this one detailing what to do instead and why and finally this one to drive the final nail into the symbolic reference coffin.

I hope this helps Ralph in his quest for The Truth (tm).

Regards,
Helgi Briem

#!/usr/bin/perl -w

use strict;

no strict qw(refs);

our @menu_info=qw(1 2 3);
our @menu_sell=qw(3 4 5);

foreach my $foo ("info","sell") {
    print "Values in \@menu_$foo: ";
    print join ",",@{"menu_$foo"};
    print "\n";
}
[download]

That's why "use strict;" disallows them.

You're much better off using the hard reference approach, which is what the answers above this one recommend.
--
Mike

menu_$foo works if you don't  use strict

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

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

menu_$foo works if you don't use strict
my (@menu_info,$foo);

No it won't.

Symbolic references only work for globals, because lexicals (what "my" makes) don't have symbol table entries, so ${"menu_$foo"} can't find them.

If you tried your code, you'd see it prints nothing.

Try this instead:

our @menu_info;
my $foo;
$menu_info[1] = "hello";
$foo = "info";

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

But as I mentioned above, don't do this. It only works if you turn off strict 'refs', and then the compiler can't tell you if you're referencing something that's not there, as you did.
--
Mike