use Data::Dump::Streamer;
use Fatal qw/open/;

open my $fh, '>', 'somefile';

my $x = {cat => [qw/man du/]};

Dump($x)->To($fh)->Out();

##</code><code>##

$HASH1 = { cat => [
           'man',
           'du'
         ] };