open PREV,'<','prev.txt' or die "$!";
my %prev_days=();
#BIGCO-C  CMO 180304 L 6/30/13  2
while (<PREV>){
  chomp;
  my @f = split /\s+/,$_;
  $prev_days{$f[2]} = $f[5];
}