I think your problem is in this line:

my $Return_results = "Select * from Result_storage_keep where Unique_i
+dentifier = ".$Request_id." AND Aggregated_area = Instance_name AND D
+isease_cat = Cause_catagory\;";
[download]

It's really bad practice to use diseased cats in your code...