Select Code to Download

my %total;
my %by_file;
...
  $total{$_}++;
  $by_file{$ARGV}{$_}++;
}

my @strings = sort keys %total;
for my $string ( @strings ) {
...
   }
   print( "\n" );
}