Select Code to Download

use warnings; use strict; 

...
  print '  CoID  = '.$h->{CoID}."\n"; 
  print '  State = '.$h->{State}."\n"; 
  }

From hash
 ID = 97546
...
 ID = 60047
  CoID  = ExampleCo
  State = contact