Try this

my $index = $ARGV[0];
chomp($index);
my @a1 = qw("a" 'b' 'c' 'd');
my @a2 = qw('A' 'B' 'C' 'D' 'E');
my @a3 = qw(1 2 3 4 5 6 7 8 9);

multipleArray(\@a1,\@a2,\@a3);

sub multipleArray
{
    while (@_)
    {
        my $array = shift;
        print "${$array}[$index]\n";
    }
}
[download]

Originally posted as a Categorized Answer.