while (my @row = $sth->fetchrow_array()) {
   push @records, {name => $row[0],
                   ip => $row[1],
                   email => $row[2]};
}