Select Code to Download

use warnings;
use strict;
...
my %hash=map { /^(.*)-(\d+)$/; $1=>$2} @CELLS;

print STDERR "hash DUMPER:\n", Dumper(\%hash), "\n";

hash DUMPER:
$VAR1 = {
...
          'C' => '8',
          'B' => '6'
        };

hash DUMPER:
$VAR1 = {
...
                   6
                 ]
        };