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

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

##</code><code>##

fred 1

##</code><code>##

use strict;
use warnings;

##</code><code>##

use strict;
use warnings;

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

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