Oops, I though that your code was wrong because

DB<1> x sort { $a <=> $b } (1_0, 1_00, 2_0 )
0  10
1  20
2  100
[download]

but actually...

DB<2> x sort { $a <=> $b } qw(1_0 1_00 2_0)
0  '1_0'
1  '1_00'
2  '2_0'
[download]