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