####
print "param=" . $q->param('report_type') . " ";
if( grep { /$q->param('report_type')/ } (qw/case_id hosp_alias sender receiver/) ) {
print "we are getting the list ";
} else {
print "we are NOT getting the list ";
}
####
param=sender
we are NOT getting the list
####
param=sender
we are getting the list
####
#!/usr/bin/perl
$p = 'sender';
if( grep { /$p/ } (qw/case_id hosp_alias sender receiver/) ) {
print "getting the list\n";
} else {
print "not getting the list\n";
}
####
getting the list