The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::Base;

__DATA__
=== Can sort a list
--- (in) split sort join=-: foo bar baz
--- out: bar-baz-foo

=== Can sort backwards
--- (in) split sort reverse join=-: foo bar baz
--- out: foo-baz-bar