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

##</code><code>##

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