use strict;
use warnings;

my $a = join ',', qw/67 42 99 28 15 14 92 12 45 57 16/;
my $b = join ',', qw/41 99 67 28 15 57 12 45 14 92 12/;
my $c = join ',', qw/92 42 67 28 15 45 57 16 12 99 14/;

print "$_\n" for glob "{$a}-{$b}-{$c}";