My perl script is (mkclscript)

enter code here




if ( $#ARGV != 2 ) {
   die "usage: mkclscript.prl command threshold monophone_list\n";
}

$command = $ARGV[0];
$threshold = $ARGV[1];

$hmmlist=$ARGV[2];
if (! -f $hmmlist) {
   die "mkclscript: monophone HMM list $hmmlist not found\n";
}

open(HMMLIST,"<$hmmlist") or die "Can't open file $hmmlist\n";
while(<HMMLIST>) {
    chop;chop;
    print "$command $threshold \"ST_$_"."_2_\" {(\"$_\",\"*-$_\+*\",\"$_\+*\",\"*-$_\").state[2]}\n";
}

open(HMMLIST,"<$hmmlist") or die "Can't open file $hmmlist\n";
while(<HMMLIST>) {
    chop;chop;
    print "$command $threshold \"ST_$_"."_3_\" {(\"$_\",\"*-$_\+*\",\"$_\+*\",\"*-$_\").state[3]}\n";
}

open(HMMLIST,"<$hmmlist") or die "Can't open file $hmmlist\n";
while(<HMMLIST>) {
    chop;chop;
    print "$command $threshold \"ST_$_"."_4_\" {(\"$_\",\"*-$_\+*\",\"$_\+*\",\"*-$_\").state[4]}\n";
}

and the lines i get from tree.hed first four lines for state 2 is

enter code here

TB 350 "ST_a_2_" {("a","*-a+*","a+*","*-a").state[2]}
TB 350 "ST__2_" {("","*-+*","+*","*-").state[2]}
TB 350 "ST_a_2_" {("a","*-a+*","a+*","*-a").state[2]}
TB 350 "ST__2_" {("","*-+*","+*","*-").state[2]}

What you want me to change in order to make it run...!!!!!!!