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