Select Code to Download

my %unique_urls;
foreach (@links) {
...
    }
    $i++;
}

my %unique_urls;
my @art = grep { m{-(\d{5,})} && !$unique_urls{$1}++ }
          map { $_->url() } $agent->links();
undef %unique_urls;
print map { "$_\n" } @art;