#!/usr/bin/perl -l

use strict;
use warnings;
use Algorithm::Loops qw(NextPermute);

my(@list) = (1..14);
do {
    print join(",", reverse @list);
} while( NextPermute(@list) );