foreach (@links) {
    my $link = $_;
...

##</code><code>##

foreach my $link (@links) {
...