# Another try:
    my %hash = %{$diary_data[0]};
    @diary_entry = keys %hash;
    #@diary_entry = keys %{$diary_data[0]};
    print "@diary_entry\n";
    for $temp (@diary_entry) {
        print "$temp\n";
    }