my @ordered = sort @array;
@ordered = reverse @array if $something;

##</code><code>##

foreach ($something ? reverse sort @array : sort @array)

##</code><code>##

use Sort::Key qw(keysort rkeysort);
my $sorter = $something ? \&rkeysort : \&keysort;
foreach ($sorter->(sub { $_ }, @array) )