while ( my ($id, $keyword, $titel, $unterseiten) = $sth->fetchrow_array() ) { #print STDERR "ID: $id => KEY: $keyword => TITEL: $titel => unterseiten: $unterseiten\n"; my $hashref = {}; $hashref->{"link"} = $cgi->a( {href => $cgi->url(-full=>1) . "?action=$keyword" }, "$titel"); push @{ $seiten }, $hashref; }