Select Code to Download

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

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

fred 1

use strict;
use warnings;

use strict;
use warnings;
...

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