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