sub bytearray_to_bigint {
  my @array = @_;
  my $base = Math::BigInt->new('1');
  my $result = Math::BigInt->new('0');
  foreach my $a (@array) {
    $result += $a * $base;
   $base *= 256;
  }
  return $result;
}