Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
__DATA__
1    2    3    4    5    6    7    8    9    10    11    12    13    1
+4    15
1a    2a    3a    4a    5a    6a    7a    8a    9a    10a    11a    12
+a    13a    14a    15a

 Field:    ,15,    14 + 1,     1
 Field:    ,14,    13 + 1,     1
...
 Field:    ,2a,    1 + 1,     2
 Field:    ,1a,    0 + 1,     2
Record: 1a    2a    3a    4a    5a    6a    7a    8a    9a    10a    1
+1a    12a    13a    14a    15a