my @x = split(/\t/,$line);
die "I don't have enough stuff..need 5 tokens\n" if @x <5;
my ($tok1, $tok2, $tok3, $tok4, $tok5) = @x;