function P5L {
        unset PERL5LIB;
        DIRS=(~/lang/perl/modules/{lib,share}/perl/*);
        local IFS=":";
        export PERL5LIB="${DIRS[*]}";  ## double quoted array expansion indexed by "*"
} && P5L