Glad to see you've figured out what this is.

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]

If specifically testing for the user key is important, add a next unless $hashref->{user} or something.

hdp.