@diary_entry = values %{$diary_data[0]};
print "@diary_entry\n";