for (glob '{1,2,3,4,5}\ {q,w,e,r,t}\ {junk,crap,spam,crud,kipple}') {
  print "$_\n";
}