$foo = "quux";
$foolen = length $foo; # in this case, 4