sub db_query {
        
        ...
        my $sth=$dbh->prepare($sql);
        $sth->execute();

        while(@result=$sth->fetchrow_array)  {
                push (@db_result, @result);
        }
        $sth->finish();
        $dbh->disconnect;

        return(@db_result);
}