DBIを使ってSelect文 複数のカラム、複数のレコードを取得するには？

質問

Perl　DBIを使用してDB検索する部分で質問させてください。
検索してきた複数のレコードの中のカラムを全て取得したいのですが
うまくできません。

テーブルAAAに
フィールドa,b,cがあり、レコードが3つ入っているとします。
テーブルAAA
a b c
------
1 2 3
4 5 6
7 7 7

$sqlState= "select a,b,c from AAA";

$sth= $dbh->prepare($sqlState);
$sth->execute;
@row = $sth->fetchrow_array;
foreach (@row){
($a,$b,$c,)= @row;
print $a;
print $b;
print $c;
}

このようなコードでいいのかと思うのですが
出力結果は111 222 333
となってしまってまるで期待通りの結果にはなりませんでした。

上記の例では
123 456 777
という出力結果を望むとすると、どのように記述すればよろしいのでしょうか？

回答No.1

e101tre

@row = $sth->fetchrow_array;
foreach (@row){
($a,$b,$c,)= @row;
print $a;
print $b;
print $c;
}

この部分を以下のように変更すればよいのでは ?

while (@row = $sth->fetchrow) {
($a,$b,$c)= @row;
print $a;
print $b;
print $c;
}