DB<125> %hash=()

  DB<126> push @{ $hash{$_->[0]} } , $_->[1] for  map {[split '-' ]} @CELLS 
 => ""

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