my @tokens = split; 
        	my $header = $tokens[0];
	my @records = @tokens [3,4,5,6,10,11];