# assuming that you copy all the files in the local directory to all computers
# if not, you can change the src and computer variables to reference only the 
# files you need the start copy portion remains the same

  my @computer = qw( 'comp1\dir\*.*' 'comp2\dir\*.*' 'comp3\dir\*.*'
                     'comp4\dir\*.*' 'comp5\dir\*.*');
  my @rtncd = ();

  my $src = 'local\directory\*.*';
  $rtncd[$_] = (system("start copy /Y /Z $src $computer[$_]")>>8) for (0..$#computer); 

  ... # handle return codes here