Select Code to Download

# assumption: @words == @numbers
use Data::Dumper;
...
   } 
} 0..$#words;
print Dumper \@loop_data;

sub db2tmpl {
    my ($sth,@bind) = @_;
...
    }
    return \@loh;
}

my $sth = $dbh->prepare('select * from student');
my $students = db2tmpl($sth);