while (<SHORTNAMES>) {                # loop through all lines of shortnames
    my @array2 = split /:/;            # seperate by those ugly colens created by OSX
    $finishedusers{$array2[7]} = $array2[0];# Setup keys:  "Long Name" => "shortname"
}

##</code><code>##

open SHORTNAMES, "< $usershortfile" or die "$!";
while (<SHORTNAMES>) {
    my ($longname,$shortname) = (split /:/)[7,0];
    $finishedusers{$longname} = $shortname;
}
close SHORTNAMES;                                                                                

##</code><code>##

my %final;    # Hash %final
while (($fullname, $uid) = each(%final)) {    # Loop through hash

##</code><code>##

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";
}