use Data::Dumper;
my %sample =
(
    [ 1, 2, 3, 4 ] => [ 5, 6, 7, 8 ]
);
print Dumper( \%sample );

==output==
$VAR1 = {
          'ARRAY(0x13c864)' => [
                                 5,
                                 6,
                                 7,
                                 8
                               ]
        };