($len) = "length" ; #scalar in list context
$len1 = "lengthy" ;
print "1 - ", ($len), "\n";
print "2 - ", $len , "\n";
print "3 - ", $len1, "\n" ;
print "4 - ", ($len1), "\n";