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];
 }

##</code><code>##

{
  Aegon         => [
                     ["4,300", "4,318", "4,29", "4,38"],
                     ["4,109", "4,280", "4,09", "4,28"],
                     ["4,045", "4,107", "4,03", "4,13"],
                     ["4,087", "4,067", "4,06", "4,12"],
                     ["4,061", "4,100", "4,05", "4,12"],
                     ["4,009", "4,083", "4,00", "4,12"],
                     ["4,100", "3,996", "3,98", "4,11"],
                     ["4,147", "4,122", "4,08", "4,16"],
                     ["4,127", "4,151", "4,12", "4,18"],
                     ["4,111", "4,169", "4,10", "4,20"],
                     ["4,180", "4,103", "4,07", "4,19"],
                     ["4,286", "4,198", "4,16", "4,30"],
                     ["4,209", "4,249", "4,16", "4,28"],
                     ["4,175", "4,249", "4,18", "4,28"],
                   ],
  Ahold         => "19/32",
  Akzo          => "33/64",
  Aperam        => "28/64",
  ArcelorMittal => "54/128",
  ASML          => "46/128",
  Boskalis      => "67/128",
  Corio         => "74/128",
  DSM           => "104/256",
  Fugro         => "113/256",
  Heineken      => "120/256",
  ING           => "57/128",
  KPN           => "129/256",
  Philips       => "135/256",
  PostNL        => "141/256",
  Randstad      => "147/256",
  Reed          => "153/256",
  Royal         => "159/256",
  SBM           => "212/512",
  TNT           => "219/512",
  TomTom        => "228/512",
  Unilever      => "246/512",
  Wolters       => "238/512",
}
What happens when you apply scalar to a hash is this: 2/8
Aegon,2,1 = 4,107