use warnings;
use strict;

my $val = "foo";
my @combine = (["bar","quz"],["abc","def"]);

my @comb;
for my $el (@combine) {
	push @comb, [$val, @$el];
}

use Data::Dumper;
print Dumper(\@comb);

__END__
$VAR1 = [
          [ 'foo', 'bar', 'quz' ],
          [ 'foo', 'abc', 'def' ]
        ];