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

##</code><code>##

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