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