labster

#!/usr/bin/perl

use 5.10.0;
use strict;
use warnings;
use Tie::File;
 
my $MAX_LINES = 100_000;
my @FIELDS = (7, 8, 9, 14, 17, 18, 19, 25, 30, 31, 35, 36, 37, 43, 44, 46, 47, 50, 52, 55, 62, 63, 66, 67, 68, 75, 76, 77, 81);