Select Code to Download

use Algorithm::Loops qw( NextPermute );

...
my @unsorted = qw( a c b d );
my @sorted = mysort(@unsorted);
print("@sorted\n");

use IPC::Run3 qw( run3 );

...
my @unsorted = qw( a c b d );
my @sorted = mysort(@unsorted);
print("@sorted\n");