note johngg <p>The <c>{ $a cmp $b }</c> comparison is the default behaviour for [doc://sort] so doesn't have to be mentioned specifically if you don't wish. You can populate your <c>@A</c> and <c>@trash</c> arrays in one go by eliminating the intermediate <c>@sorted</c> array and pushing onto the appropriate array using a ternary (see [doc://perlop#Conditional-Operator]).</p> <code> $ perl -Mstrict -Mwarnings -E' > my @notSorted = qw{ Beep Ape Circus Arg }; > my( @A, @trash ); > push @{ $_ =~ m{^A} ? \ @A : \ @trash }, $_ for sort @notSorted; > do { > local $" = q{, }; > say qq{@A}; > say qq{@trash}; > };' Ape, Arg Beep, Circus $ </code> <p>I hope this is helpful.</p> <!-- Node text goes above. Div tags should contain sig only --> <div class="pmsig"><div class="pmsig-401112"> <p>Cheers,</p><p>JohnGG</p> </div></div> 1001748 1001748