RosettaCodeData/Task/Permutations/Perl/permutations-2.pl

use ntheory qw/forperm/;
my @tasks = (qw/party sleep study/);
forperm {
  print "@tasks[@_]\n";
} @tasks;