# https://twitter.com/ritzberry/status/1105354597936185344
use v5.10;
use Encode;
use utf8;

my @array = qw(大阪大学 大阪府立大学 大阪市立大学);

my $str   = join "", ( sort ( split //, ( join "", @array ) ) );

say encode_utf8($str);  # 大大大大大大学学学市府立立阪阪阪