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