Select Code to Download

@diary_entry = keys %{$diary_data[0]};
for $temp (@diary_entry) {
    print "$temp\n";
}

$ ./send_referral.pl 0000079100
Diary ID: 536870914
timestamp
value
user

print "$temp: $diary_data[0]{$temp}\n";

$ ./send_referral.pl 0000079100
Diary ID: 536870914
...
Argument "NWORLASTE800 LOGIN FAILED\nNWORLASTE801 LOGIN FAIL\n\nWA..."
+ isn't numeric in helem at ./send_referral.pl line 201.
Bad index while coercing array into hash at ./send_referral.pl line 20
+1.
$

@diary_entry = values %{$diary_data[0]};
print "@diary_entry\n";

 # Another try:
    my %hash = %{$diary_data[0]};
...
    for $temp (@diary_entry) {
        print "$temp\n";
    }