Help for this page

Select Code to Download

Select or download this

use Modern::Perl;

...
    }
    say "$element: $found";
}

Select or download this
```
AAA: 5
AAC: 2
ACA: 3
CAA: 2
```