Offending code removed

##</code><code>##

my @member_list = qw( fileone filetwo filethree ) ;
my @all_members = () ;
for my $file ( @member_list ) {
   open IN, "$file.dat" or die "Can't open '$file': $!" ;
   local $/ ;
   push @all_members, <IN> ;
   close IN ;
}