my @Fld = ( split /\t/ )[0,4];
my $col = 0;
foreach my $token (@Fld) {