my $state = 'TX';
  my $mod="State::$state::formulas"; 
  eval 'use '.$mod.';' ; 
  if ($@) {die '***ERROR***',$@}