my @fields = split /\t/;
should be:
my @fields = split /\t/,$_;