foreach (@files) {
   open FILE, "<$ENV{'DOCUMENT_ROOT'}/data/text/$_" or die "error opening $ENV{'DOCUMENT_ROOT'}/data/text/$_: $!";