SZ
Unstable сортировка рандомизирует.
use Data::Dumper;
print Dumper [map {$_->{2}} sort {$a->{1} <=> $b->{1}} {1,3,2,1}, {1,2,2,0}, {1,3,2,2}]
Size: a a a
SZ
use Data::Dumper;
print Dumper [map {$_->{2}} sort {$a->{1} <=> $b->{1}} {1,3,2,1}, {1,2,2,0}, {1,3,2,2}]
P
use Data::Dumper;
print Dumper [map {$_->{2}} sort {$a->{1} <=> $b->{1}} {1,3,2,1}, {1,2,2,0}, {1,3,2,2}]
SZ
R
SZ
MA
AS
MA
AS
MA
MA
SZ
MA
SZ
AK
MA
SZ
MA
MA
SZ