my $x = \" VERY VERY BIG STRING .....";
  my $len = length( $$x );