Select Code to Download

{ my @shiftby = (0, 8, 16, 24, 0, 8, 16, 24, 8, 16, 24); 
  my $l;
...
     else         {   $a += $k[$l-1]<<$shiftby[$l]; }
  }
}