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