## sort the new list of virtusers
    open(FH, $virttmp);

    @virtusers = <FH>;

    close(FH);

    ## write sorted file contents back onto itself
    open(FH, ">$virttmp");

    print FH (sort @virtusers);

    close(FH);