$cellname = 'fred';
$hashCellname{$cellname}++; 

local $, = ' ';
print %hashCellname,"\n";