Select Code to Download

@list = map { $$_[0] } sort { $$a[1] <=> $$b[1] or $$a[0] cmp $$b[0] }
    map { /(\d+),/; [$_,$1] } @list;