Help for this page

Select Code to Download

Select or download this

for $station (@stations){
    print "\n    $station";
...
    print "\n" if ($found[0] eq "");
    print OUTFILE "\n" if ($found[0] eq "");
}