while (my $line = <IN>) {
  ...
  my $remains = $line;
  while ($remains) {
    my (@set, $remains) = split /\t/, $remains, 11;
    # do something with 'sum(@set)'
  }
}