Select Code to Download

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

...
$Hash{b}[2]="vi";

say Dumper (\%Hash);

$VAR1 = {
          'b' => [
                   'iv',
...
                 ]
        };