foreach (@text) {
   $first = substr($_,0,11);
   mkdir "$first";
   print "Copying $_ to $first.\n";
   copy($_,"$first/$_");
   unlink $_;
     }