my $var = 'frog!';
my @list = ($var);
print("@list" =~ /\b$var\b/ ? 1 : 0, "\n");