サンプルコード若しくは解決に至りそうなウェブサイトを教えてください。

CGI(Perl)でコーディングしたプログラムです。
CGIが動作するマシンとPostgreSQLサーバが動くマシンは別々で、TCP/IP接続（LAN）です。

PostgreSQLサーバにDBD::Pgでアクセスし、select文を送ります。
一件ずつ検索を行い、一致したら変数に代入するというものです。

データベースが増大するごとに、先頭行から検索しているため時間がかかっています。
検索スピードを向上させたいのです。

当方の組み込んだコードです。

>>

use DBI;
$db = DBI->connect("DBI:Pg:host=$host;dbname=$dbname", $user, $passwd) || die "DBI connect failed : $DBI::errstr";

#テーブルを開く
$st = $db->prepare("select * from tablename");
$res = $st->execute;

#テーブル処理
while (($aaaaa,$bbbbb)=$st->fetchrow_array){
if ($aaaaa =~ /$query/){
$answer = "$bbbbb";
last;
}
}

<<

お力を貸してください。