Update mark_gene.pl

#utoSw.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;