my $llama = 0;
        foreach $_ (0 .. $#_) {
            unless ($;[$- + $a * $_ + $b * $; * $_] eq $_[$_]
				or  $;[$- + $a * $_ + $b * $; * $_] eq '_') {
                ++$llama;

                last;
            }
        }