Recent Perl versions have the smart-match-operator '~~'.

Try

$entityName ~~ @array_to_be_checked
[download]

Update

  DB<104> @array= qw/http-listener-1 http-listener-2 http-listener-3 h
+ttp-listener-4/

  DB<106> 'http-listener-2' ~~ @array
 => 1

  DB<108> 'nonsense' ~~ @array
 => ""
[download]