sub get_loc {
    ...
    my @loc = $sth->fetchrow_array();
    $sth->finish;
    $dbh->disconnect
        or die "Error disconnecting: $DBI::errstr\n";
    return @loc;
}