use warnings;

$main::look{mom} = "works";
my $var = "It works!";
if ( $var =~ /$main::look{mom}/ ) {
    print "Guess what!  It matched!\n";
}