sub charCodeAt{ 
    return ord substr $_[0], $_[1], 1; 
}