perl -l --
use constant FOY => 1, 2, 3, 4;
print for FOY;
__END__
1
2
3
4


##</code><code>##

List constants are returned as lists, not as arrays.

    $homedir = USERINFO[7];             # WRONG
    $homedir = (USERINFO)[7];           # Right