my $size=length(join('',%{$_[1]}));