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