foreach my $file (@files){
   ...
   mkdir(...) or die("...");
   move(...)  or die("...");
   ...
}