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

##</code><code>##

my @sim = (
    # s1    s2    s3    m1    m2    m3    w1    w2     w3
	[1.00, 0.92, 0.56, 0.60, 0.45, 0.33, 0.23, 0.23, 0.33], # s1
	[0.92, 1.00, 0.50, 0.55, 0.40, 0.33, 0.23, 0.27, 0.36], # s2
	[0.56, 0.50, 1.00, 0.60, 0.57, 0.27, 0.20, 0.27, 0.40], # s3
	[0.60, 0.55, 0.60, 1.00, 0.82, 0.20, 0.30, 0.40, 0.50], # m1
	[0.45, 0.41, 0.57, 0.81, 1.00, 0.19, 0.30, 0.40, 0.50], # m2
	[0.33, 0.33, 0.27, 0.20, 0.19, 1.00, 0.25, 0.27, 0.23], # m3
	[0.23, 0.23, 0.20, 0.30, 0.30, 0.25, 1.00, 0.75, 0.60], # w1
	[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
);

##</code><code>##

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