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