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