for my $feet ( qw/black brown sneaker/ ) {
    for my $legs ( qw/shorts dress_pants jeans/ ) {
        for my $torso ( qw/t-shirt dress_shirt sweater/ ) {
            print "$torso $legs $feet\n";
        }
    }
}

##</code><code>##

(black, brown, sneakers), (shorts, dress_pants, jeans), (t-shirt, dress_shirt, sweater)

# Start position
0, 0, 0 = black, shorts, t-shirt
0, 0, 1 = black, shorts, dress_shirt
0, 0, 2 = black, shorts, sweater
0, 1, 0 = black, shorts, t-shirt
0, 1, 1 = black, shorts, dress_shirt
0, 1, 2 = black, shorts, sweater
0, 2, 0 = black, dress_pants, t-shirt
...
2, 2, 2 = sneakers, jeans, sweater