The user id is typically the email address for which the PGP key was generated. Here's the code I use, which targets someone for whom I have a PGP public key block and an email address:

sub encrypt {
    my($proto, $target, $data) = @_;
    my $id = $target->email;
    my $key = $target->pgp_key;
    my $ring = Crypt::OpenPGP::KeyRing->new(Data => $key)
            or $proto->error("new user KeyRing failed");
    my $pgp = Crypt::OpenPGP->new(PubRing => $ring)
            or $proto->error("new Context failed");
    my $kb = $ring->find_keyblock_by_uid($id)
            or $proto->error("find user keyblock failed", $ring);
    my $alg = $kb->preferred_sk_alg;
    $pgp->encrypt(
        Data => $data,
        Recipients => [ $id ],
        Armour => 1,
        ($alg ? (Cipher => $alg) : ()), # use default if no preference
+ located
    );
}
[download]

Note that this is also using Crypt::OpenPGP - finding and using preferred SK algorithm to get an appropriate encryption mechanism.

Hugo