DB<128> %hash=()

  DB<129> map { push @{ $hash{$_->[0]} } , $_->[1] }  map {[split '-' ]} @CELLS  
 => (1, 2, 3, 4, 1, 2, 1, 2)

  DB<130> \%hash
 => { A => [1, 2, 3, 4], B => [5, 6], C => [7, 8] }