#!/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";
}