Select Code to Download

<select name="report_type" >
<option value="case_id">case_id</option>
...
<option value="receiver">receiver</option>
<option value="date">date</option>
</select>

print "param=" . $q->param('report_type') . "<BR>";
if( grep { /$q->param('report_type')/ } (qw/case_id hosp_alias sender 
+receiver/) ) {
...
} else {
    print "we are NOT getting the list<BR>";
}

param=sender
we are NOT getting the list

param=sender
we are getting the list

#!/usr/bin/perl

...
} else {
    print "not getting the list\n";
}

getting the list