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

##</code><code>##

my $clist;
use <anymodule> ($clist = {a => 1, b => 2});
use constant $clist;