print join("\n",map(join(",",map{s/\.//;$_}@$_),@strings);
#vs
print join "\n",map{join",",map{s/\.//;$_}@$_}@strings;

##</code><code>##

my $count=scalar keys %hash;
#or
$count=scalar(keys(%hash));