Might be easier to pawn off to one of these :)
String::Glob::Permute - Expand {foo,bar,baz}[2-4] style string globs
Text::Glob::Expand - permute and expand glob-like text patterns
update: not much luck with this one :) Regexp::Genex - get the strings a regex will match, with a regex