You can move multiple files from one location to another location by following way.

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