use List::Util qw( first );

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