my $zz;
my $ecode;
for (my $i=0; $i<@bigmail; $i++){
    $ecode= $bigmail[$i];
    if ($adres eq "<$ecode>"){
        $zz=$ecode;
        }
}