Select Code to Download

my ($rowref, $ff, @bigmail);
 ... snip ...
...
        $bigmail[$ff]= $rowref->{'email'};
        $ff++;
}

my ($rowref, @bigmail);
 ... snip ...
while($rowref= $st->fetchrow_hashref){
        $bigmail[@bigmail]= $rowref->{'email'};
}

        $bigmail[@bigmail]= $rowref->{'email'};

        push @bigmail, $rowref->{'email'};

    if ($adres=~ /<$ecode>/){

    if ($adres eq "<$ecode>"){

my $zz;
my $fg = @bigmail;
...
        $zz=$ecode;
        }
}

my $zz;
my $pl=0;
...
        $zz=$ecode;
        }
}

my $zz;
my $ecode;
...
        $zz=$ecode;
        }
}

my $zz;
for my $ecode (@bigmail){
...
        $zz=$ecode;
        }
}