my $tmp=pack("B32", substr("0" x 32 . join('',@rand1), -32));

#this prints 'as 32bit big endian:0x2abb1'
printf "as 32bit big endian:0x%x\n", unpack('N',$tmp) ;

#this prints 'as 32bit little endian:0x200'
printf "as 32bit little endian:0x%x\n", unpack('S',$tmp) ;