while (@row = $sth->fetchrow_array)
{     
  print "@row\n" 
}

##</code><code>##

while ($ref = $sth->fetchrow_hashref()) {
  print "Name: $ref->{'name'}\n";
  print "Address: $ref->{'address'}\n";
  print "Tel: $ref->{'tel'}\n";
  print "Email: $ref->{'email'}\n\n";
}