Select Code to Download

use strict;
use warnings;
...
my $c = join ',', qw/92 42 67 28 15 45 57 16 12 99 14/;

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

67-41-92
67-41-42
...
16-12-12
16-12-99
16-12-14