Select Code to Download

my %h = ('a', ['A', 'B'], 'b', 'B','a b', 'A B');
print  "@{$h{a}}\n";

print "@${a}\n";