use strict;
use warnings;

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

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