Select Code to Download

#!/usr/bin/perl

...
  my %counts = map { $_, scalar(() = $seq =~ /$_/g) } keys %found;
  use Data::Dump 'dd'; dd "for sequence $seq", \%counts;
  }

("for sequence AGCAGC", { AGC => 2 })
(
...
    TGGA  => 2,
  },
)