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