while (<FH>) {
      chomp $_;
      @line_array = split(/[()\t+\s+]/, $_);
      @full = map {$_ ? $_ : ()} @line_array;
      @{$data[$readcounter]} = @full;
}
@data = sort { $a->[0] <=> $b->[0] } @data;