Select Code to Download

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

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