# Schleifenkopf, wie auch immer die Daten aus der DB kommen
while ( my ( $name, $tel, $email ) = Daten_aus_DB() ) {

  my %list = (
     name  => $name,
     tel   => $tel,
     email => $email,
  );

  push @data, \%list;
}