DB<156> sub tst { (map {lc} @_)[0.. wantarray * $#_] }

  DB<157> @list=tst("A".."D")
 => ("a", "b", "c", "d")

  DB<158> $scalar=tst("A".."D")
 => "a"