Someone

  while ( @data = $query->fetchrow_array(  ) ) {
      next if ($data[4] eq "#bitmetv");
      $data[4] = "NONE" if (grep { $_ eq lc $data[4] } qw/#loners #nihil #splash #splash2 #splash3 #splash5 #davenpixietech #norbits.wub #curtus/);	
      $data[2] =~ s/\..+$//;
      $data[3] =~ s/(.{6}).+/$1/; 
      $data[4] =~ s/(.{8}).+/$1/;  
      $data[2] = substr($data[2], 0, 10) 
	if (length($data[2]) > 10);
      my @a = POSIX::localtime $data[5];
      my $time = POSIX::strftime "%H:%M", @a;
      #	my $vote = votes($data[0]);
      my $profile = ($data[6] > 0) ? $data[6] : $data[3];
      my $cat = ($rank > 0 && $data[8] < 1) ? "<b>$data[7]</b>" : $data[7];
      
      print <<EOF;
	<li><a href="i$data[0]"><img src="/img/thumb_$data[0].$data[1]" alt=""></a><br>$data[2]<br>$profile/$data[4]</li>
EOF
      $i++;
    }
    print '</ul>';
    print '</div>';
    #    print '<span id="imagelist">' . $pages . "</span>";
    #    print $pages;
    print '<div id="navigation"><ul id="nav">' . $pages . "</ul></div>";
    foot("");
  }