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