DB<109> @A = qw/{a,c}{b,d} x/; => ("{a,c}{b,d}", "x") DB<110> print "$x\n" while ($x = <@A>) ab ad cb cd x