$b_ecc = $b_ecc->as_hex(); #### my $val1 = $b_ecc->as_hex(); my $val2 = $bmask->as_hex(); my $val3 = $bigint_data->as_hex(); print "$val3, $val2, $val1\n"; $count_xor+=1 if($b_ecc->is_odd());