my $zz;
for my $ecode (@bigmail){
    if ($adres eq "<$ecode>"){
        $zz=$ecode;
        }
}