while ($c2<=$#tst_num_temp)
     {
       $tst_num[$c2]=$words[$tst_num_temp[$c2]+$1];
     $c2++;
     }