A little easier to write, and much easier to read, would be:

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";
}
[download]

hdp.