Select Code to Download

contigA 4 5 0 1
contigB 10 1 1 0
etc.

#!/usr/bin/perl 

...

print zup \(@array1, @array2, @array3); 
print "\n";

use strict;
use warnings;
...
        }
}
close (IN);