Select Code to Download

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

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