Update ovlp_gene.pl

#!/usr/bin/perl

# program to generate swarm file for ovlp_gene.pl
# command line swarm -f swarm.ovlp_gene

unless(open(FP,">swarm.ovlp_gene")) {
        print "Unable to open swarm.ovlp_gene file\n";
        }

print "\nlist input? : ";
$list = <STDIN>;
chomp $list;

for($n = 1; $n <= 22; $n++) {
        print FP "perl ovlp_gene.pl chr" . $n . " $list\n";
        }
        
        print FP "perl ovlp_gene.pl chrX" . " $list\n";
        print FP "perl ovlp_gene.pl chrY" . " $list\n";

close(FP);
exit;