my ($record, $date, $outfile, $station, $sstation, $linecnt, $pcntg, @values);
#.............................^^^^^^^^

##</code><code>##

my ($record, $date, $outfile, %stations, $sstation, $linecnt, $pcntg, @values);
#.............................^^^^^^^^^