open(OUTPUT1, ">", $output) or die "Open failed for writing $output: $!");