Select Code to Download

#!/usr/bin/perl -w

...
    }
}

$sql_statement = qq|insert into log_table
    (field1, field2, field3, field4, field5, field6)
...
    VALUES
    (?,?,?,?,?,?,?,?)|;
$sth{'8'} = $dbh->prepare($sql_statement);

while (<IN>){
    chop;
    my ($waste, $wastea, @temp_array) = split;
    my $rv = $sth{$#temp_array+1}->execute(@temp_array);
}