# Add this somewhere before the loop
# open output file
my $outfile = "some_filename.ext";
open my $out, '>', $outfile or die "can't open $outfile: $!\n";