##
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";
####
print "From hash\n";
for my $o (@order) {
print "" .
" ID = $array->{$o}->{ID}\n" .
" CoID = $array->{$o}{CoID}\n" .
" State = $array->{$o}->{State}\n";