tperl
our $k;
BEGIN{our $k={
zed     =>      0,
one     =>      1,
repos   => [qw(oss non-oss debug)],
two     =>      2,
};}
P "k=%s", $k;
use constant $k;
use constant repos2=>(qw(oss non-oss debug));
P "repos=%s", [repos];
P "repos2=%s", [repos2];'
#output:
k={one=>1, two=>2, zed=>0, repos=>["oss", "non-oss", "debug"]}
repos=[["oss", "non-oss", "debug"]]
repos2=["oss", "non-oss"]