foreach my $file(@files){
    system( "mv $file $newdir/$file");
   }