Are you sure redo is what you want? It repeats the loop without changing $r. As it stands your loop will only ever process the first row you read from the database and will never exit.

Why are you not using strictures (use strict; use warnings; - see The strictures, according to Seuss).