use warnings;
use strict;

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

##</code><code>##

1. I play soccer at home.
2. I play soccer at school.
3. I do not play soccer at home.
4. I do not play soccer at school.
5. You play soccer at home.
6. You play soccer at school.
7. You do not play soccer at home.
8. You do not play soccer at school.
9. We play soccer at home.
10. We play soccer at school.
11. We do not play soccer at home.
12. We do not play soccer at school.