No need to open STDOUT in the first place - just selecting a file handle makes it the default target for a print operation:

open my $handle, '>', 'ch9.log' or die $!;
select $handle;
print Dumper(...);
close $handle;
select STDOUT;
print "Done!\n";
[download]