# Nach der foreach-Schleife, also
# bisher Ende des Skripts:
#

open OUT, ">gps.pl.htm";
  foreach (@html) {  # Oder @data
    print OUT "$_\n";
  }
close OUT;