sub find_in {
    my ($data_ref, $string) = @_;
    my $result = 'no result';

    my ($key) = grep /^$string$/i, keys %$data_ref;
    $result = $$data_ref{$key};
    return $result;
}