Select Code to Download

sort { $a =~ y/ //dr cmp $b =~ y/ //dr } @data

#!/usr/bin/env perl

...
    say for sort { $a =~ y/ //dr cmp $b =~ y/ //dr } @$data;
    say '=' x 20;
}

Data from atcroft
--------------------
...
  i
j
====================