while(<DBFILE>){
         chomp;
         my @pattern_check = split(/,/,$_);
         .....
      }