for (my $i=1; $i<=$#NewsType; $i++)
{
   my $news;
   {
      no strict 'refs';
      if($NewsType[$i][3])
      {
          ...
      }
   }
}