DB<148> %hash=()

  DB<149> @CELLS
 => ("A-1", "A-2", "A-3", "A-4", "B-5", "B-6", "C-7", "C-8", "A-9")

  DB<150> %hash = map { /^([^-]*)-(.*)$/; if( $1 eq ($a//'-') ) { push @$b, $2; () } else { ( $a = $1 => $b = [ $2 ] ) } } @CELLS;
 => ("B", [5, 6], "C", [7, 8], "A", [9])