my @s = map $_->[0],
        sort { $a->[1] <=> $b->[1] }
        map [ $_, (/(\d+)/)[0] ],
        @l;