my $value = $ary[0][0]->{<key>}
    # to Shorten it (so it's not so hard to type) 
    my %short = %{$ary[0][0]};