Select Code to Download

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

open SHORTNAMES, "< $usershortfile" or die "$!";
while (<SHORTNAMES>) {
...
    $finishedusers{$longname} = $shortname;
}
close SHORTNAMES;

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

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