Select Code to Download

my %name = ();
.
...
  }
  push @{$data{$acct}},$_ if ($acct);
}

my $outfile = join '_',$name{$acct},$acct,'2017.txt';