use strict;
use warnings;

my $re = 'foo';
print "hihi" if grep {/$re/} ("bla", "blub", "foo", "bar");
$re = 'baz';
print "hihi" if grep {/$re/} ("bla", "blub", "foo", "bar");