Select Code to Download

501093    0    0    3162
2958    0    0    3163
1895    0    0    3164
1382    0    0    3165
2869    0    0    3166

3162    2159    501093    0    0    0    0
3163    2960    2958    0    0    0    0
3164    2269    1895    0    0    0    0
3165    1393    1382    0    0    0    0
3166    2881    2869    0    0    0    0

#!/usr/bin/perl
use warnings;
...
close Output;
close FILE2;
print "Done";