use File::Copy;
@files = ("file1", "file2");
move ("c:\/A\/$_", "c:\/B\/$_") for @files;