use feature ":5.14";
use warnings FATAL => qw(all);
use strict;
use Data::Dump qw(dump pp);

 {my %h = qw(1 2 3 4);
  say "What happens when you apply scalar to a hash is this: ", scalar %h;
 } 

 {my $h1 = {'ArcelorMittal' => '54/128','Aperam' => '28/64','Unilever' => '246/512','Ahold' => '19/32','Akzo' => '33/64','PostNL' => '141/256','DSM' => '104/256','Philips' => '135/256','TNT' => '219/512','Randstad' => '147/256','Royal' => '159/256','Wolters' => '238/512','SBM' => '212/512','Reed' => '153/256','ASML' => '46/128','Heineken' => '120/256','Boskalis' => '67/128','Aegon' => '11/16','Corio' => '74/128','Fugro' => '113/256','ING' => '57/128','KPN' => '129/256','TomTom' => '228/512'        };
  my $h2 = {'Aegon2' => ['4,109','4,280','4,09','4,28'  ],'Aegon7' => ['4,100','3,996','3,98','4,11'  ],'Aegon3' => ['4,045','4,107','4,03','4,13'  ],'Aegon14' => [ '4,175', '4,249', '4,18', '4,28'   ],'Aegon1' => ['4,300','4,318','4,29','4,38'  ],'Aegon4' => ['4,087','4,067','4,06','4,12'  ],'Aegon13' => [ '4,209', '4,249', '4,16', '4,28'   ],'Aegon10' => [ '4,111', '4,169', '4,10', '4,20'   ],'Aegon5' => ['4,061','4,100','4,05','4,12'  ],'Aegon9' => ['4,127','4,151','4,12','4,18'  ],'Aegon11' => [ '4,180', '4,103', '4,07', '4,19'   ],'Aegon12' => [ '4,286', '4,198', '4,16', '4,30'   ],'Aegon6' => ['4,009','4,083','4,00','4,12'  ],'Aegon8' => ['4,147','4,122','4,08','4,16'  ]};

  my $a; push @$a, $h2->{"Aegon$_"} for 1..14;

  $h1->{Aegon} = $a; # Please do not use scalar() here
  pp($h1);

  say "Aegon,2,1 = ", $h1->{Aegon}[2][1];
 }