print "From hash\n"; 
for my $o (@order) { 
  my $h=$array->{$o}; 
  print "  ID    = $h->{ID}\n"; 
  print "  CoID  = $h->{CoID}\n"; 
  print "  State = $h->{State}\n";