my $links_db=$DB->table ('Links', 'CatLinks', 'Category');
my $cond = GT::SQL::Condition->new(
'isValidated' => '=' => 'Yes',
'something' => '=' => '5',
);

$links_db->select_options ("GROUP BY Links.ID ORDER BY Mod_Date DESC", "LIMIT 30");
my $sth2 = $links_db->select( ['Links.ID','Title','URL'] => $cond );

while (my ($id,$title,$url) = $sth2->fetchrow_array) {
...
}

my @ar;
...
while (my ($ar[ID],$ar[Title],ar) = $sth2->fetchrow_array) {[/code]


But i would like to have something like:
[code]my @ar;
...
while (my ($ar[]) = $sth2->fetchrow_array) {[/code]

Is this possible?

Or is there another way to have an array back without write every field in the code?
I have a lot of fields and i have a lot of selects. Because of this i try to write a sub and pass all the values to this sub.

I would like to have something like:

[code]
select * from ...
while $array = fields {

call sub ($array)

}
[/code]
With this i would save one million lines of code in my build.pm :)

my $sth = $rel->select('Links.*', @cat_cols, 'CategoryID' => $cond);
last unless $sth->rows;
while (my $link = $sth->fetchrow_hashref) {
...
}

while (my $vals = $sth2->fetchrow_hashref) {
... $vals->{Title}, $vals->{ID} etc. ... based on what you asked it to grab
}

my @link;

while (@link = $sth->fetchrow_array) {

$output = subname(@link);

}

sub subname {
my @array = @_[0];
...
return $lala;
}

my $links_db = $DB->table ('Links', 'CatLinks', 'Category');
my $cond = GT::SQL::Condition->new( 'isValidated' => '=' => 'Yes', 'something' => '=' => '5' );

$links_db->select_options ("GROUP BY Links.ID ORDER BY Mod_Date DESC", "LIMIT 30");

my $sth2 = $links_db->select( ['Links.ID','Title','URL'] => $cond ) || die $GT::SQL::error;

while (my $hit = $sth->fetchrow_hashref) {
# you now have access to $hit->{ID}, $hit->{Title} and $hit->{URL}
do_stuff($hit);

# $hit will now have the values, including what was editing in do_stuff()
}

sub do_stuff {
# access $hit via $_[0]->{Field}, as this means you dont need to return anything (makes it quicker than doing a copy + return)
}

my $cond = GT::SQL::Condition->new(
'isValidated' => '=' => 'Yes');

$links_db->select_options ("GROUP BY Links.ID ORDER BY Mod_Date DESC", "LIMIT 30");
my $sth = $links_db->select( ['Links.ID','Title','URL'] => $cond );

while (my $link = $sth->fetchrow_array) {

print $link->{'ID'};

}

while (my $link = $sth->fetchrow_array) {

while (my $link = $sth->fetchrow_hashref) {