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