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);