properly ommit last column in loop

1 files changed, 1 insertions, 1 deletions

diff --git a/clerk_column.pl b/clerk_column.pl
index cbdca6c..34f6531 100755
--- a/clerk_column.pl
+++ b/clerk_column.pl
@@ -19,7 +19,7 @@ while (my $line = <>) {
 for my $line (@lines) {
 	my @parts = split(/\t/, $line);
 	my $counter = 0;
-	for (; $counter < @parts; $counter++) {
+	for (; $counter < @parts - 1; $counter++) {
 	  $parts[$counter] =~ s/\s+$//;
 		my $partlen = $width{$counter};
 		printf "%-*s\t", $partlen, $parts[$counter];