for (0 .. $len-1) { $$targ_shift[$_*2] += $k[$_] << $targ_shift[$_*2+1]; }