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