$i=0;
while (${${$diary_data[0]}[$i]}{user}) {
    print "User:\t\t${${$diary_data[0]}[$i]}{user}\n";
    print "Timestamp:\t${${$diary_data[0]}[$i]}{timestamp}\n";
    print "Information:\t${${$diary_data[0]}[$i]}{value}\n\n";
    $i++;
}