while ( my ($c) = each %{ $cells } ) {