Select Code to Download

my @spectrum = qw/174.0 102.99 71.62 70.53 82.49 69.05 18.94 102.99 71
+.62 70.53 82.49 69.05 18.94 102.99 71.62 70.53 82.49 69.05 18.94 102.
+99 71.62 70.53 82.49 69.05 18.94/;
my @subsp = qw/102.0 18.94 71.61 82.0 173.0 68.7/;

REQUEST    = 18.94 68.7 71.61 82.0 102.0 173.0
BEST_SUBSP = 18.94 69.05 71.62 82.49 102.99 174.0
SIMILARITY = 2.11

#!/usr/bin/perl

...
SIMILARITY  = $sim
DEBUG