my ($rowref, $ff, @bigmail);
... snip ...
while($rowref= $st->fetchrow_hashref){
$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;
my $pl=0;
my $ecode;
for (my $i=0; $i<$fg; $i++){
$ecode= $bigmail[$pl];
$pl++;
if ($adres eq "<$ecode>"){
$zz=$ecode;
}
}
##
##
my $zz;
my $pl=0;
my $ecode;
for (my $i=0; $i<@bigmail; $i++){
$ecode= $bigmail[$pl];
$pl++;
if ($adres eq "<$ecode>"){
$zz=$ecode;
}
}
##
##
my $zz;
my $ecode;
for (my $i=0; $i<@bigmail; $i++){
$ecode= $bigmail[$i];
if ($adres eq "<$ecode>"){
$zz=$ecode;
}
}
##
##
my $zz;
for my $ecode (@bigmail){
if ($adres eq "<$ecode>"){
$zz=$ecode;
}
}