for (grep {$links{$_}{visited}} keys %links) {
   #....
}