I won't duplicate what others have said regarding fetchrow->hashref, but I wonder if you're looking for array slice notation? For instance:

print("Name: $row[0]\nAddress: $row[1]\n$Tel: $row[2]\nEmail: $row[3]\
+n");
[download]