> tperl # (alias tperl='perl -I/home/law/bin/lib -we'\''use strict; use P;') our $k; BEGIN{our $k={ zed => 0, one => 1, repos => [qw(oss non-oss debug)], two => 2, };} use constant $k; use constant repos2=>(qw(oss non-oss));'