I find this part of your program "strange":

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

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

This part of your code does not "pull all the customerIDs into an array". Rather, the fetchrow_array()-method, "Fetches the next row of data and returns it as a list containing the field values" (as state the docs).

So, @row = $sth->fetchrow_array() would be clearer if you renamed it to @fields = $sth->fetchrow_array() and then foreach my $field (@fields) { ...}. And even that is partly misleading since your SQL-statement only pulls 1 field from the database and therefore the whole foreach-loop is just expensive decoration.