for (my $i = 0; $i < 8; $i++) {
  $array[$i] = ( $number % ( 0x100 ** (1 + $i) ) / ( 0x100 ** $i ) );
}