Help for this page
for my $feet ( qw/black brown sneaker/ ) { for my $legs ( qw/shorts dress_pants jeans/ ) { ... } } }
(black, brown, sneakers), (shorts, dress_pants, jeans), (t-shirt, dres +s_shirt, sweater) ... 0, 2, 0 = black, dress_pants, t-shirt ... 2, 2, 2 = sneakers, jeans, sweater