#!/usr/bin/perl
%s = (7 => 6, 8 => 6, 9 => 7, 10 => 8, 11 => 9, 12 => 10);
@W = (10,11,12);
%P = (10 => "0.412325", 11 => "0.311246" , 12 => "0.234902");
@T = (2);

foreach $f  ("HMM.txt"){
    open F, "< $f" or die "Can't open $f : $!";
    $p = "";
    while( <F> ){
	chop $_;
	$p = $_;
    }
    foreach $w  (@W){
	foreach $t (@T) {
	    $l = "hedera -t $P{$w} -R 60000  -P $p  -T $t,$t -W $w,$w -S ".($w+4).",".($w + $s{$w});
	    system($l);
	}
    }
}
