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

##</code><code>##

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

##</code><code>##

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

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

##</code><code>##

use List::Util qw( first );

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