use strict;
use warnings;

# Global variables
my $cnt = 0;
my $header;
my $sub_line;
my $prev_index;
my $x;
my $c;
my $prev_user;
my $prev_id;
my $period;