while( @info = $sth->fetchrow_array ) {
$f_name = $info[0];
$l_name = $info[1];
...
# do what is necessary with these variables.
}
####
my @objects;
while ( @info = $sth->fetchrow_array ) {
my $object = Object->new();
$object->set_fname( $info[0] );
$object->set_lname( $info[1] );
...
# or
my $object = Object->new( @info );
# or
my $object = Object->new(
fname => $info[0],
lname => $info[1], ... );
push @objects, $object
}
for ( @objects ) {
# do something with the object
}
####
@objects = Object::populate( "SELECT fname, lname, ... FROM object WHERE title='programmer'" )
####
@objects = Object::populate( title => "programmer" );