Sure! Let me do it with an example:

my @data = qw(1a 1b 2a 2b);
my @s1 = reverse sort { $a <=> $b } @data;
my @s2 = sort { $b <=> $a } @data;
print "@s1\n@s2\n";
[download]

generates:

2b 2a 1b 1a
2a 2b 1a 1b
[download]

Note how in the second row, elements with the same sorting key (the numeric part) appear in the same order they had in @data while in the first row, corresponding to the reverse solution, they do not.