Select Code to Download

foreach (@in) {
  my ($count, $file) = split;
...
         count => $count,
         sort => "$campaign:$month:$file" };
}

my @files = map {
  my ($count, $file) = split;
...
    count => $count,
    sort => "$campaign:$month:$file" };
} @in;