#!/usr/bin/perl

$mainDir="/prodmtdata003/geo/shpgen/tigerline/fe_2013";

opendir DHA, $mainDir or die "cannot open $mainDir: $!";

foreach $dir (readdir DHA){
print "\$dir = $dir\n";
$DHAcounter++;
};

print "There are $DHAcounter directories in $mainDir\n";