Select Code to Download

#!/usr/bin/perl -w
use strict;
...
for (keys %hash){print "$_ " if($hash{$_}>1)};
#########################
print "\n";

$ perl tmp.pl
non-unique words:
is, this,
$