use SQL::Abstract;
my $SA = SQL::Abstract->new;
while (my @row = $dbq->fetchrow_array) {
  my %fields;
  @fields{@fields} = ( $site_hostname, $site_id, @row );   # hash slice to set %fields
  my ($sql, @bind) = $SA->insert( $thisTable, \%fields );
  push @central_insert, [ $sql, \@bind ];
}
...
$dbh->do( $_->[0], {}, @{$_->[1]} ) for @central_insert;