Select Code to Download

{
    last if $len == 0;  $a+= $k[0];
...
    last if $len == 9;  $c+= $k[9]  <<16;
    last if $len == 10; $c+= $k[10] <<24;
}

my @targ_shift = (
    [ \$a,  0 ],
...
    my ($targ, $shift) = @{$targ_shift[$idx]};
    $$targ += $k[$idx] << $shift;
}

{
    my @targ_shift = (
        \$a,  0,
...
        $$targ += $k[$_] << $shift;
    }
}