Select Code to Download

((5.0 0.4) (48.0 0.5))
((48.1 0.4) (99.0 0.5))

my @sorted_data = sort {  $a->[1] <=> $b->[1]
                       || $a->[0] <=> $b->[0] } @unsorted_data;