use WWW::Search;
my $amor = undef;
my $vida = undef;
@tu = ("inteligente","sincera","hermosa","fuerte"."...");
while($vida == "" || $vida == undef && !defined($amor)){
    if(defined($amor)){
        $vida = $amor;
    }else{
        $amor = new WWW::Search($tu?);
    }
}