I don't know anything about Mysql.pm, so all this comes from a quick scan of the documentation, but it looks to me like you are executing the statement and fetching the first row each time you go round the loop. I think you need to call query before you go into the loop.

And when you get the loop working correctly, you can simplify all of the code within it to:

push @sect, \@row;
[download]

Let simplify to this:

@row=$dbh->Query("select a, b from c where d=1")->FetchRow;
[download]

That returns:

 a1, b1 
 a2, b2
[download]

And I do get only (a1, b1)?

So, if You suggest make the query before cycle, then what should I put in the while(), and {push @a, \@row}? - Will I have a column, and not a row?! PS I don't know how to use code-tags...

Edit: g0n - code tags and formatting

Again, this is all guesswork based on reading the documentation.

my $sth = $dbh->query("select a, b from c where d=1");

while (my @row = $sth->fetchrow) {
  push @data, \@row;
}
[download]

Will I have a column, and not a row?

You'll have a 2-dimensional array of rows and columns (or, more accurately, an array of rows where each element contains a reference to an array containing all of the columns from one record in the database).

--
<http://dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg

PS I don't know how to use code-tags...

Your time at Perl Monks will be far more productive and enjoyable if you make the effort to learn.

--
<http://dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg