while (my ($key, $value) = each %links) {
  if (defined $value->{visited}) {
    ... do something with $links{$key} ...;
  )
}