Select Code to Download

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

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