The algorithm that chooses my socks

sock_picker.pl

eval unpack u=>q{_;7DD3T\]6R)<>#8W7'@W,EQX-C5<>#8U7'@V92(L(EQX-SE<>#8U7'@V8UQX-F-<>#9F7'@W-R(L(EQX-C)<_>#9C7'@W-5QX-C4B+")<>#8R7'@V8UQX-C%<>#8S7'@V8B(L(EQX-C1<>#9F7'@W-%QX-S1<>#8U7'@V-"(L_(EQX-S-<>#<Q7'@W-5QX-C%<>#<R7'@V-5QX-C0B+")<>#8Q7'@V95QX-C1<>#<R7'@V9EQX-CE<>#8T(BPB_7'@V,EQX-C%<>#9E7'@V-2(L(EQX-C5<>#<V7'@V.5QX-F,B+")<>#8Q7'@W-UQX-C5<>#<S7'@V9EQX-F1<_>#8U(BPB7'@W,%QX-F9<>#9C7'@V8EQX-C%<>#(P7'@V-%QX-F9<>#<T7'@W-%QX-C5<>#8T(BPB7'@W-UQX_-CE<>#<T7'@V.%QX,C!<>#8Q7'@V8UQX-CE<>#8U7'@V95QX-S,B+")<>#<P7'@V8UQX-C%<>#8Y7'@V92(L_(EQX-F-<>#9F7'@V8UQX-S1<>#8X7'@V,5QX-S1<>#<S7'@V95QX-F9<>#<T7'@V-5QX-S9<>#8U7'@V95QX_-C%<>#<S7'@V9EQX-C-<>#9B7'@W-%QX-SE<>#<P7'@V-2(L(EQX-S)<>#8Q7'@V95QX-C1<>#9F7'@V9%QX_,C!<>#9D7'@V,5QX-C1<>#9E7'@V-5QX-S-<>#<S(ET[9F]R(&UY)$]/,#`P(&EN(#$N+C)[:68@,'MP<FEN_=")<>#<S7'@V9EQX-C-<>#9B7'@R,"1/3S`P,%QX,V%<>#(P(BMR86YD;VTH)$]/*7U]<')I;G0H(EQX-#%<_>#9E7'@R,%QX-C%<>#<W7'@V-5QX-S-<>#9F7'@V9%QX-C5<>#(P7'@W,%QX-C%<>#8Y7'@W,EQX,C!<>#9F_7'@V-EQX,C!<>#<S7'@V9EQX-C-<>#9B7'@W,UQX,C!<>#<T7'@V.%QX-C%<>#<T7'@R,%QX-F1<>#8Q7'@W_.5QX,C!<>#9F7'@W,EQX,C!<>#9D7'@V,5QX-SE<>#(P7'@V95QX-F9<>#<T7'@R,%QX-F1<>#8Q7'@W-%QX(-C-<>#8X(BD}