# Perl 5:
print join "...", map {...} sort {...} @array;
# Perl 6:
say (@array.sort:{...} ==> map {...}).join("...");