Select Code to Download

for my $dbh ( @db_handles) {
  my ( $crud_cache, $crud_stuff_cache, $stuff_name_cache) = ({},{},{})
+;
...
    print join(",", $@row{qw(FOO_WIBBLE_ID FOO_NAME BAR_WIBBLE_ID BAR_
+NAME ETC ETC)}), "\n";
  }
}

sub get_foo_wibble_id {
  sql_iterator(
...
    @_,
  )
}