> > replace all of this: > > >> foreach my $hr ( sort keys %{ $href->{$cell}} ) { >> # print "\t$hr"; >> foreach my $count ( sort keys %{ $href->{$cell}->{$hr}} ) { #<-- line >> 48 >> print "\t$count"; >> } >> } > > > ...with this: > > > foreach my $hr ( sort keys %{ $href->{$cell}} ) { > print "\t$hr $href->{$cell}{$hr}"; > } > > and see if it fixes your problem. Here is the output. If it is not what you > desire the output to be, just say so. If it is, let us know. Once we get it > sorted, I'll try to explain why it was breaking :) > > Output: > > 149: 00 1 01 2 02 2 03 2 04 2 05 1 06 1 > 077: 00 ND 01 ND 02 ND 03 ND 04 ND 05 ND 06 ND > > Steve
That works perfectly! Thank you. Please explain where mine was breaking. Thank you, Chris -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/