You've got some renegade indentation going on there. Anyways, a few things to watch out for.

When putting a scalar into a regular expression, be sure to encapsulate it properly. Remember that '.' is a special character in regexp context.

if ($email_checked =~ /\Q$matcher\E/)

Also, you can declare your looping variable within the loop itself, like this:

foreach my $email_checked (@turned_on)

Provided your @turned_on array is populated correctly, which I'm only presuming since the output of your debugging code is not shown, then this should work. Are you sure you're actually getting a series of "Nothing Equals..." messages?