What I want is this: 67-41-92, 67-41-42, 67-41-67, 67-41-28 ...

glob can help with this:

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}";
[download]

Output:

67-41-92
67-41-42
67-41-67
67-41-28
...
16-12-16
16-12-12
16-12-99
16-12-14
[download]