foreach (@links){
print $_."\n";
print DATEI "$_\n";
}