Update mark_gene.pl

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