#!/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]);
	}
}