use 5.026;
use warnings;

use Algorithm::Permute;

my @arr  = ( 1, 2, 3, 4, 5 );
my $perm = Algorithm::Permute->new( [ 0 .. $#arr ], 3 );

my @allPerms;
while ( my @res = $perm->next() )
{
    push @allPerms, [ sort { $a <=> $b } @res ];
}

my @uniqPerms = do {
   my %seen;
   map  { [ unpack q{N*}, $_ ] }
   grep { ! $seen{ $_ } ++ }
   sort
   map  { pack q{N*}, @{ $_ } }
   @allPerms
   };

say join q{+}, @{ $_ } for @uniqPerms;