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