while (<FILE1>) {
    chomp;
    my $input_orig = $_;