Select Code to Download

my @table;
$table[$_] = [..., ..., ...] for 0..0x0003ffff;
...
  my ($nxt, $mid, $bot) = @{$table[$n & 0x0003ffff]};
  ...
}