foreach my $link(@links){
   print $link->[0]."\n";
   print DATEI "$link->[0]\n";
}