@a=map {split //} glob "{1,2}{3,4}";
while(@a){$x=shift @a;$y=shift @a;print "{$x,$y} "};