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