while($len){
  $H{(('a')x4,('b')x4,('c')x3)[--$len]}
  += $k[$len] << (8* ( ($len > 7 ? $len +1 : $len)%4 ) );
}