sub func(){
        if (-r FILE){
                open($in, "<", FILE) || die;
                while (<$in>){
                        if ($_ eq $_[0]){
                                return 1;
                        }
                }
        }
        return 0;
}