my %hash = $diary_data[0];
    my @temp1 = keys %hash;
    print "%hash\n";
    foreach $temp2 (@temp1) {
        print "$temp2\n";
        print "$hash{$temp2}\n";
    }

##</code><code>##

Reference found where even-sized list expected at ./send_referral.pl line 200.<BR>
Use of uninitialized value at ./send_referral.pl line 204.<BR>
ARRAY(0x3c05dc)