foreach ( glob( "{a,b,c,d}" x 10 ) )
{
	print "$_\n";
	last;
}