my $clist;
BEGIN { 
    $clist = {a => 1, b => 2};
}
use constant $clist;