foreach my $file (@files) {
    print "Moving $file to the K:/ATM \n";
    move("$old$file","$new$file$date");
    print "$file has been moved to the K:/ATM\n";
    print "---------------------------------------------\n";
}