while (($fullname, $uid) = each(%lookup)) {      # corrected to use %lookup hash instead.
   next unless exists $finishedusers{$fullname};
   system ("cp '$oldserv/$uid/Documents/*' '$newserv/$finishedusers{$fullname}/Documents/'");
   print "Copying Files for $fullname";
}