ＰｅｒｌでＣＳＶファイルから名前がＢＢＢのタイトルを抽出する場合って下記のように一行ずつ調べていくやり方しかないんでしょうか？
ＳＱＬみたいに抽出できないんですか？


foreach $line(@lines){
　　　@data=split(/,/,$line);
　　　if($data[1] eq "ＢＢＢ"){
　　　　　　$title=$data[3];
　　　　　　last;
　　　}

}

print "$title"


（ＣＳＶファイルのデータ）
番号,名前,メール,タイトル,本文
1,ＡＡＡ,,無題１,本文１
2,ＢＢＢ,,無題２,本文２
3,ＣＣＣ,,無題３,本文３
.
.
.
200,ＡＡＡ２００,,無題２００,本文２００