sub moving {
    print "Moving $_ to the K:/ATM \n";
    move("$old$_","$new$_$date");
    print "$_ has been moved to the K:/ATM\n";
    print "---------------------------------------------\n";
}

foreach (@files) {
    &moving;
}

##</code><code>##

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

##</code><code>##

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";
}