Select Code to Download

johngg@shiraz:~/perl/Monks$ perl -Mstrict -Mwarnings -E '
my @tests = ( -3, 0, 1, 26, 27, 701, 702, 703, 10342, 397645 );
...
Col. no.    703 : Col name AAA
Col. no.  10342 : Col name OGT
Col. no. 397645 : Col name VPFA

johngg@shiraz:~/perl/Monks$ perl -Mstrict -Mwarnings -E '
my @tests = ( -3, 0, 1, 26, 27, 701, 702, 703, 10342, 397645 );
...
Col. no.    703 : Col name AAA
Col. no.  10342 : Col name OGT
Col. no. 397645 : Col name VPFA