%m=("Juku", 15, "Kati", 13, "Mati", 14);   #samaväärne
%m=( 
  "Juku" => 15,
  "Kati" => 13,
  "Mati" => 14
);

print $m{"Juku"}."\n";
print join(", ", keys(%m))."\n";
foreach $nimi (keys(%m)){
  print $nimi." ".$m{$nimi}."\n";
}
print join(", ", values(%m))."\n";
