foreach my $u (keys %topurls) {
    my @line;
    $line[0] = $u;
    $line[1] = $topurls{$u}{title};
    $line[2] = $topurls{$u}{count};
    $line[3] = $topurls{$u}{users};
    print join("\t",@line)."\n";
}