Select Code to Download

$dbh->func( 'COPY snapshot_$formName ( name, value, collect_date, omp_
+id ) FROM STDIN',
            'putline' );

my $count = 0;
for ( ... ) {
    ... $names[ $count ]

    $count++;
}

foreach my $ix ( 0 .. $#names )
    my $value = $values[ $ix ];
    if ( ! $names[ $ix ] ) {
    }
}

$formName = ...;
@form_out = ...;
$ga = { ... };
...
            or die "Couldn't write `$row' to $table_name: $@, " . $dbh
+->errstr;
    }
}