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