$g = 0;
        print "\$g = $g";
        next;

##</code><code>##

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