use Data::Dumper qw/Dumper/;
my %h = (
    a => [qw/1 2 3/],
    b => 'keks',
);

print Dumper(\%h);