You should put in a "next" after setting $g to 0.

        $g = 0;
        print "\$g = $g";
        next;
[download]

Otherwise, the code will go on and add a 1 to $g in the last else block.

Also, I would recommend you change the matching statement. I doubt you really wanted regular expression matching here:

   if ($w eq $fred[-1])
[download]

(I'll be generous and assume you used strict and that all the variables are "my" variables declared earlier in the code. If not, you should.)