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