[rosalind] orf-grondilu.pl fix under GLR

Author: stmuk

categories/rosalind/orf-grondilu.pl

@@ -50,15 +50,15 @@ ($dna)
 
 sub orf($dna) {
     my %match;
-    my @match = gather for $dna, revc $dna {
+    my @match = (gather for $dna, revc $dna {
         take .match: rx/ ATG [ <[ACGT]>**3 ]*? <before TAA|TAG|TGA> /, :overlap;
-    };
+    })>>.list.flat;
 
     %match{
         [~] map { DNA-codon{$_} }, .match: rx/ <[ACGT]>**3 /, :g
     }++ for @match;
 
-    return %match.keys;
+    return %match.keys.sort;
 }
 
 sub MAIN(Str $input = $default-input) {