#! /usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use open OUT => ':utf8', ':std';
use Encode;


my @strings = ("\N{LATIN SMALL LETTER C WITH CARON}",
              "c",
              "\N{LATIN SMALL LETTER C WITH CEDILLA}",
              "\N{LATIN SMALL LETTER C WITH ACUTE}");

my $i = 4;
push @strings, map encode('utf-8', $_), @strings;

say join ',', map "$_: " . ord, split // for sort @strings;