my $count = 0;
for ($count = 0;$count < 100; $count++) {
   mkdir "folder_" . $count;
   chdir "folder_" . $count;
}