my @reversed = reverse @original;

some_sub( $_ ) for \@original, \@reversed;
print '-';

some_sub( [ sort { $_ } @original ] ) for 0, 1;