use locale;
    print +(sort grep /\w/, map { chr() } 0..255), "\n";  

##</code><code>##

#use locale;      
@char = sort(@char);
#no locale;