D:\>perl -MO=Deparse -e"use constant L=>1,2,3; print @a[L]" use constant ('L', 1, 2, 3); print @a[L()];