Select Code to Download

# good idea :-)
use strict;
...
};

$dbh->disconnect;

foreach my $object (@list_of_objects)
{
  my @values = @{$object};
  # do whatever.
}