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