use constant {continue=>0, next=>1, redo=>2, last=>3 };

##</code><code>##

our $clist = {continue=>0, next=>1, redo=>2, last=>3 };
use constant $clist;

##</code><code>##

#(Using): alias tperl='perl -we'\''use strict; use P;'
> tperl
our $clist;
use mem($clist = {continue=>0, next=>1, redo=>2, last=>3 });
use constant $clist;
P "redo=%s, last=%s", &redo, &last;'
redo=2, last=3