Aside from using File::Copy, you may want to double check your escaped "\" and if your file is one entry per line, you wouldnt need to create an @array and then run through a foreach:

#!D:\perl\bin\perl -w

$listFile = "list.txt";
open(LIST, $listFile) ||
  die "Cant open $listFile : $!";

while(<LIST>) {
  system("copy \\\\$_\\c$\\Program Files\\Resonate\\logs\\agent-dir.$_
+\\agent-log C:\\resologs");
}

close(LIST);
[download]