Select Code to Download

'04=critical'
'02=informational'
...
'10=test'
'03=warning'
'08=foo'

    @values = sort { 
       substr($a,1) <=> substr($b,1)
    } @values;