$links{$aLink}++;

##</code><code>##

  keys %links

##</code><code>##

foreach $link ( @extracted_links ) {
    $links{$link}++;

    $constrainted_linkes{$link}++
        if ( 0 < grep { $link =~ m/$_/ } @constraints;
}