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

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

  DB<161> $scalar=tst("A".."D")
 => "d"