foreach $member (@memberlist) {
    open(FILE, "$member.dat") or die $!;
    lock(FILE);
    @members = <FILE>;
    chomp(@members);
    push @allmembers, join( " ", @members);
    unlock(FILE);
    close(FILE) or die $!;
# remove this
#      foreach $line (@members) {
#          push(@allmembers, $line);
#      }
}