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