Select Code to Download

use Data::Dumper;

...
    local $Data::Dumper::Useqq = 1;
    return Dumper($s);
}

print "similarity of ", show("$words1[$i]#1"),
      " and ",          show("$words2[$j]#1"),
      " = $value\n";