my $length=scalar @$config;
print $length;

##</code><code>##

my $length=scalar %$config;
print $length;