Select Code to Download

my @X = qw(s1 s2 s3 m1 m2 m3 w1 w2 w3);

my @sim = (
    # s1    s2    s3    m1    m2    m3    w1    w2     w3
...
    [0.23, 0.27, 0.27, 0.40, 0.40, 0.27, 0.75, 1.00, 0.80], # w2
    [0.33, 0.36, 0.40, 0.50, 0.50, 0.23, 0.60, 0.80, 1.00], # w3
);

sim(s1,s1) = 1 
sim(m1,s2) = 0.55