for $hashref (@{$diary_data[0]}) {
  print "User:\t\t$hashref->{user}\n";
  print "Timestamp:\t$hashref->{timestamp}\n";
  print "Information:\t$hashref->{value}\n\n";
}