Select Code to Download

use strict;
use warnings;
...
}

print $_->as_string, "\n" for @filtered;

for my $j (reverse($i + 1 .. $#sets))