for ($i = 0 ; $i <= $#diary_data ; $i++ ) {
        print "$i is { ";
        for $temp_keys ( keys %{ $diary_data[$i] } ) {
            print "$temp_keys=$diary_data[$i]{$temp_keys} ";
        }
        print "}\n";
    }