use File::Copy;

our $VERBOSE = 1; # turn this off if you don't need the verbose messages

for my $file (@files) {
    if (-f "old/$file") {
        print "old/$file -> new/$file\n" if $VERBOSE;
        move("old/$file", "new/.") or die "move: old/$file: $!";
    }
}