my %hash = map { /^([^-]*)-(.*)$/; if( $1 eq ($a//'-') ) { push @$b, $2; () } else { ( $a = $1 => $b = [ $2 ] ) } } @CELLS;