Select Code to Download

    for ($i = 0 ; $i <= $#diary_data ; $i++ ) {
        print "$i is { ";
...
        }
        print "}\n";
    }

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

I: 0
Key: timestamp
...
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 19
+7.
$

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