#!/usr/bin/perl -w 

open(IF,"chrom.sizes");
#chr1	188471
while($a=<IF>){
($chrom,$size)=split(/\t/,$a);
system("twoBitToFa sacMik2.2bit:$chrom fa/$chrom.fa");
}


