$pat = join '-', ('{foo,bar,baz}') x 3;
$\="\n";
print for glob $pat;