Fashion Show solutions

Fashion Show was solved using Perl by 2 contestants. Solution sizes: average 2846 bytes (shortest: 2833; longest: 2859).