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