tr/A-C/1-3/ for @original;

my @reversed = reverse @original;

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

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