use warnings;
use strict;

my $i = 1;
print $i++ . ". $_\n"
  for glob
"{'I','You','We'}{' play',' do not play'}{' soccer'}{' at home.',' at school.'}";