# rand1 is array of binaries
# basically, I want to convert array of binaries to hex string

 my $bin = arraystring (@rand1);
 my $dec = stringdecimal($bin);
 my $hex = sprintf("0x%x", $dec);
 

  sub stringdecimal {
    return unpack("N", pack("B32", substr("0" x 32 . shift, -32)));
  }

  sub arraystring {
     my $string = join('', @_);
     return $string;
  }