Select Code to Download

open $logfile3...
foreach(@output3)...
print $logfile3...
close $logfile3;

use Path::Tiny qw/ path /;
path( $logfile1 )->spew( @output1 );
path( $logfile2 )->spew( @output2 );
path( $logfile3 )->spew( @output3 );