Select Code to Download

[0] Perl> %hash = (
              1 => {
...
                event => "I saw Fiona!"
              },
);;

pp \%hash;;
{
  1 => { 1 => "nothing", event => "I saw shrek!", name => "Shrek" },
  6 => { 1 => "nothing", 2 => "nothing", event => "I saw Fiona!", name
+ => "Fiona" },
}