sub getem {
    my $data = shift;
    my $find = shift;
    my $in = shift;
    my $return = shift;

    for (@$data) {
        if ($_->{$in} eq $find) {
            return $_->{$return};
        }
    }
}