my $sorter;
if ($something){$sorter='reverse';}

foreach ($sorter sort @array ) {
blah;
}