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