use File::Copy;
my @paths = (
  [qw(/dir1/file /dir2)],
  [qw(/dir3/file /dir4)],
  ...
);
for (@paths) {
  my ($from,$to) = @$_;
  copy($from,$to) or die $!;
}