my $key = $i & 0xfffff000;

##</code><code>##

my $key = ($i & 0xfffff000) >> 3;

##</code><code>##

$lookup[ $key ] .= pack 'va16', $i & 0xfff, $md5;