Help for this page
foreach my $lv (keys %hashCellID) { print "$lv = @{$hashCellID{$lv}}\n"; }
foreach my $cell (keys %hashCellname) { print "$cell count = $hashCellname{$cell}\n"; }