my $dbh = $self->dbh('webdaten') or die $@; my $q = q( SELECT url, count(url) as cnt FROM log group by url order by cnt desc limit 30 ); my $slice = $dbh->selectall_arrayref($q, { Slice => {}}); if($self->param('load')){ my $j = JSON->new; $self->{CONTENT} = $j->encode($slice); }