use Modern::Perl qw /2014/;
use Data::Dumper ;

my %Hash;
$Hash{a}[0]="i";
$Hash{a}[1]="ii";
$Hash{a}[2]="iii";
$Hash{b}[0]="iv";
$Hash{b}[1]="v";
$Hash{b}[2]="vi";

say Dumper (\%Hash);

##</code><code>##

$VAR1 = {
          'b' => [
                   'iv',
                   'v',
                   'vi'
                 ],
          'a' => [
                   'i',
                   'ii',
                   'iii'
                 ]
        };