Select Code to Download

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

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