my $sth = $dbh->prepare("select servproID from fran");
$sth->execute;

while(@row = $sth->fetchrow_array()) {
    foreach $row(@row) {
        ...
    }
}