Select Code to Download

while (my $ar = $sth->fetch()) {
   my $item = $ar->[0];
   ...
}

sub make_sth_iterator {
   my ($sth) = @_;
...
while (my ($item) = $iter->()) {
   ...
}