Select Code to Download

c:\@Work\Perl>perl -wMstrict -MData::Dump -le
"my @strings = ('x,x',  'yy,yy,yy',  'z,zzz,z,zz',  'foo');
...
[["x,x", 1], ["yy,yy,yy", 1], ["z,zzz,z,zz", 1], ["foo", ""]]

["x,x", "yy,yy,yy", "z,zzz,z,zz", "foo"]