$names++, shift if ARGV[0] eq "-l";

##</code><code>##

$c = do { $a = 3, $b = 6 };