while (<$FILE> {
 chomp;
 my ($number1,$number2,$number3,$number4) = split /\t/;
 print "$number4\n";

 if ($number4 == 1,2) {
     print "$number4 good\n";
 } else {
     print "$number4 bad\n";
 }

}