open my $out, '>', $output_file or die $!;