use strict;
use warnings;

my %h = ('a', ['A', 'B'], 'b', 'B','a b', 'A B');

print join('-', keys %h) . "\n\n";

print join('-', values %h) . "\n\n";

print "@{$h{'a'}}\n\n";

print "$_ => $h{$_}\n" for keys %h;
print "\n";

use Data::Dumper;
print Dumper(\%h);

##</code><code>##

a-a b-b

ARRAY(0x1801180)-A B-B

A B

a => ARRAY(0x1801180)
a b => A B
b => B

$VAR1 = {
          'a' => [
                   'A',
                   'B'
                 ],
          'a b' => 'A B',
          'b' => 'B'
        };