Select Code to Download

grep { /$q->param('report_type')/ } (qw/case_id hosp_alias sender rece
+iver/)

grep { $q->param('report_type') eq $_ } (qw/case_id hosp_alias sender 
+receiver/)

my $report_type = $q->param('report_type');

grep { $report_type eq $_ } (qw/case_id hosp_alias sender receiver/)

use List::Util qw( first );

if ( first { $report_type eq $_ } (qw/case_id hosp_alias sender receiv
+er/)) {
}