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