#!/usr/bin/perl

$CheckDir="/home/m/mccre004/GPMSscripts/FileMoverDir/ZZStateCheckDir";

opendir DH, $CheckDir;

foreach $file (readdir DH){
if($file ne "." and $file ne ".."){
print "\$file = $file\n";
$second=substr($file,8);
print "\$second = $second\n";
$underdashLocation=index( $second,"_");
$fips=substr($second,0,$underdashLocation);
print "\$fips = $fips\n";
$fipsArray[$counter]=$fips;
$counter++;

};
};

print "\$counter = $counter\n";

$state=substr($fips,0,2);

$TextFile=$CheckDir . "/" . $state . "_Fips.txt"; 

open FIPFILE, ">$TextFile";

@fipsArray= sort @fipsArray;
 
foreach $fipsArray (@fipsArray){
print FIPFILE "$fipsArray\n"; 
};