Select Code to Download

my %count;
my $total;
...

# iterate %count to see how many the pattern shows up on each line
# $total is the total number the pattern shows up in the file

my(%count, $total);
while (<FILE>) {
...
  $count{$.} = $seen{$target};
  $total += $seen{$target};
}