for ($i = 0 ; $i <= $#diary_data ; $i++ ) {
        print "$i is { ";
        for $temp_keys ( keys %{ $diary_data[$i] } ) {
            print "$temp_keys=$diary_data[$i]{$temp_keys} ";
        }
        print "}\n";
    }

##</code><code>##

 for ($i = 0 ; $i <= $#diary_data ; $i++ ) {
        print "I: $i\n";
        for $temp_keys ( keys %{ $diary_data[$i] } ) {
            print "Key: $temp_keys\n";
            print "Data: $diary_data[$i]{$temp_keys}\n";
        }
    }

##</code><code>##

I: 0
Key: timestamp
Use of uninitialized value at ./send_referral.pl line 197.
Data: 
Key: value
Argument "NWORLASTE800 LOGIN FAILED\nNWORLASTE801 LOGIN FAIL\n\nWA..." isn't numeric in helem at ./send_referral.pl line 197.
Bad index while coercing array into hash at ./send_referral.pl line 197.
$ 

##</code><code>##

I: 0
Key: timestamp
Key: value
Key: user