print OUTFILE `cat $arraymember`;

##</code><code>##

sub catfile {
   foreach (@dirarray) {
      $filepage = shift(@dirarray);
      #print TOCOUT "$filepage\n"; #debug!
      unless ($filepage eq '') {
      open (TEMPFILE, $filepage) or die "cannot open $filepage: $!\n";
      #print TOCOUT `cat $filepage`; #i wish!
      while ($newline = <TEMPFILE>) {
      print TOCOUT "$newline";
      #print "$newline"; #debug!
         }
      close (TEMPFILE);
      }
      
   }
} # end catfile