sub has_key {
        my ( $key, $keys ) = @_;
        foreach my $k ( split /\n/, $keys ) {
                return 1 if $key eq $k;
        }
        return 0;
}