sub has_key {
        my ( $key, $keys ) = @_;
        return scalar grep $key eq $_, split /\n/, $keys;
}