for my $acct (keys %data){
  my $outfile = $acct.'_2017.txt';