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