while (<FILE1>) {
      # this
      @lines = $_;
}