my $sth=$dbh->prepare("SELECT surname,name from people");
$sth->execute();

while (my ($surname) = $sth->fetchrow_array()) {
   # do something with $surname
}