#  my $sn=$fips2state->{$sfips}.'2010.sf1'; 
#  my $zf=$dir0.'/sf1/'.$sn.'.zip';
#  my $mf=$fips2state->{$fips}.'geo2010.sf1'; ; 
#  my $member=zipbyline_start($zf,$mf); 
#  while (my $line=zipbyline_read($member)){ 
#    ... pull out datums AREALAND AREAWATR POP100, create density 
#    } # line   
#  zipbyline_close($member);