use strict;
use warnings;
...
   my @numbers = split /\t/;
   if ($number[3] == 42) {
      print "I got the answer\n";
   }
   else {
      print "What was the question?\n";
   }
...