open (fileOUT, ">>$filename") 
  || die ("Couldn't open $filename for writing");
print fileOUT "Location: $element   ";
close (fileOUT);