use Digest::SHA1 qw(sha1);

my $ID_i = q(node_id=16186);
my $Q_i  = $pairing->init_G1->set_to_hash( sha1($ID_i) );

print "ID_i=$ID_i\nQ_i=", $Q_i->as_hex, "\n";