sub get_loc { ... my @loc = ... $sth->finish; $dbh->disconnect ... return @loc; }