#!/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";
}