Flexible alternative:

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);
}
[download]

And you don't need to add quotes anymore:

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