Help for this page

Select Code to Download

Select or download this

for (map "A$_", sort { $a <=> $b } map /^A\d+$/ ? substr($_,1) : (), @
+array) {
...

Select or download this
```
for (sort grep /^A/, @array) {
...
```