in reply to Stream Dumper

Yes, you can use Data::Dump::Streamer: e.g.
use Data::Dump::Streamer; use Fatal qw/open/; open my $fh, '>', 'somefile'; my $x = {cat => [qw/man du/]}; Dump($x)->To($fh)->Out();
somefile then contains:
$HASH1 = { cat => [ 'man', 'du' ] };
Updated example to include intialisation of $x and output.