print "${${$diary_data[0]}[0]}{user}\n";
    print "${${$diary_data[0]}[0]}{timestamp}\n";
    print "${${$diary_data[0]}[0]}{value}\n";


##</code><code>##

MAWEBB
988227105
NSA             NOTIFY NETWORK MAINTENANCE              4/24/01         22:05 CST

##</code><code>##

$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++;
}