my $sth = $dbh->prepare('SELECT DISTINCT surveys, COUNT(*) FROM neverland GROUP BY surveys ORDER BY surveys DESC'); 
        $sth->execute() or die $sth->errstr; 
        while (my @result = $sth->fetchrow_array()) {
        my $percent = (@result[1] / $nothernumber)*100;
        printf qq(<tr><td><font size="2" face="Arial">@result[0]</font></td><td><font size="2" face="Arial">@result[1]</font></td><td align="right"><font face="arial" size="2">%.1f%%</td></tr>\n),$percent;
        }