How I can convert a string list to array ?

PROC Main()

 cList := " arabesque, bolero, clair de lune, la mere, nocturnes, debussy"
 aList := HB_ATOKENS( cList, ',' )
 AEVAL( aList, { | c1 | QOUT( c1 ) } )

 /*
 Result :
   arabesque
   bolero
   clair de lune
   la mere
   nocturnes
   debussy 
 */

 ?
 WAIT "EOF Lst2Arry.prg"

 RETU // Lst2Arry.prg