$pattern{$opt_a} = 1;
for ($i=0; $i<length($opt_a); $i++) {
    $prop = $opt_a;
    substr($prop, $i, 1) = ".";
    $pattern{$prop}++;
}