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"; 

##</code><code>##

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"; 

##</code><code>##

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