my %array_references = (myarray => \@MyArray, second_array => \@another-array);

##</code><code>##

my $reference = $array_references{lc $input};
print $reference->[0]; # (for example)