You may possibly also be looking for (although I kinda doubt it):

use strict;
my @a = (qw(a b c));
my @b = (qw(x y z));
my @c = ( map { my $t = $_; (map { "$t-$_" } @a) } @b );
[download]