$key2 = "INITIAL\.LASTNAME,INITIAL2\.LASTNAME2,\.";

$key2 = quotemeta "INITIAL.LASTNAME,INITIAL2.LASTNAME2,.";

$key =~ /\Q$key2/