foreach $member (@memberlist) {
    open(FILE, "$member.dat");
    lock(FILE);
    @members = <FILE>;
    unlock(FILE);
    close(FILE);

    foreach $line (@members) {
        push(@allmembers, $line);
    }
}