Select Code to Download

Select or download this

use strict;
use warnings;
...
    }    
        print $output @row, "\n";
}

Select or download this

0    50    4    46    723430    0    2    1    2    1    1    1    1  
+  3    1
0    50    4    46    5533723430    0    2    1    2    1    1    1   
+ 1    3    1
0    50    4    46    33723430    0    2    1    2    1    1    1    1
+    3    1
0    50    2    48    654732    0    1    1    1    0    2    3    2  
+  1    3

Select or download this

split_0.data:0    50    2    48    654732    0    1    1    1    0    
+2    3    2    1    3    
split_0.data:0    50    4    46    723430    0    2    1    2    1    
+1    1    1    3    1    
split_33.data:0    50    4    46    33723430    0    2    1    2    1 
+   1    1    1    3    1    
split_5533.data:0    50    4    46    5533723430    0    2    1    2  
+  1    1    1    1    3    1