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

...
$date = $ARGV[1];
%stations = map{ $_ => 1 } @ARGV[ 2 .. $#ARGV];
... 
if( $values[0] eq $date && exists $stations{ $sstation } ) {