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