in reply to Eek! goto?

I believe in clean straightforward code:
$c=+$k[10]<<24 if ($len>=11); $c=+$k[9] <<16 if ($len>=10); $c=+$k[8] <<8 if ($len>=9); $b=+$k[7] <<24 if ($len>=8); $b=+$k[6] <<16 if ($len>=7); $b=+$k[5] <<8 if ($len>=6); $b=+$k[4] if ($len>=5); $a=+$k[3] <<24 if ($len>=4); $a=+$k[2] <<16 if ($len>=3); $a=+$k[1] <<8 if ($len>=2); $a=+$k[0] if ($len>=1);