while (<APPLIST>) {
        push @inpfile, [split /\n/];
  }

##</code><code>##

  local $/;
  open SLURP, $ifile or die "can't open $ifile: $!";
  @filedata = <SLURP>;
  close SLURP or die "cannot close $ifile: $!";