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