my $a = \&apackage::process1; #process1 does not exist at this moment

##</code><code>##

my $b = \&apackage2::process2;
my $c = \&apackage2::process2;
my $d = \&apackage2::process3;

##</code><code>##

@_="the journeyman larry disciple keeps learning\n"=~/(.)/gs,
print(map$_[$_-77],unpack(q=c*=,q@QSdM[]uRMNV^[ni_\[N]eki^y@))