use Data::Dumper;

sub show {
    my ($s) = @_ ;
    local $Data::Dumper::Indent = 0;
    local $Data::Dumper::Terse = 1;
    local $Data::Dumper::Useqq = 1;
    return Dumper($s);
}

##</code><code>##

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