#!/usr/bin/perl

 $HMMdirName = "HMM";
 $HMMDirNumber = 63;
 for ($i = 0; $i < $HMMDirNumber; ++$i) {
   $line = $HMMdirName . $i ;
   mkdir $line;
 }
