$sth->execute; my @cols = ( ); @cols[0..2] = ( ); $sth->bind_columns( undef, \(@cols) ); while ( $sth->fetch ) { my $o = Forum::Post->new([ @cols[0..2] ]); push( @{ $children{ $o->pid } }, $o->id ) and $obj{ $o->id } = $o; }