confess("Parameter $n stinks") unless $param[$n] =~ /$goodRule[$n]/;