#!/usr/bin/perl -w

  use strict;

  my $in = "/home/trix/test";
  my $out = "/home/trix/out";

  open IN, "$in" || die "$!\n";
  open OUT, ">$out" || die "$!\n";


while (<IN>){
	chop;
	my (@temp_array) = split( /\s/, $_);
	if ($#temp_array == 9){ #10 elements
		my @keeper_array = @temp_array[3 .. 9];
	} else { # 9 elements
		my @keeper_array = (@temp_array[3 .. 7], "whatever your filler is", $temp_array[8]);
	}
}


##</code><code>##

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

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

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

##</code><code>##

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