Finding uniq and repeated words in perl

%hash=();
open("FILE","/etc/passwd");
while($line=<FILE>)
{
chomp($line);
push (@s,$_) foreach (split(":",$line));
}
foreach (@s)
{
$hash{$_}++;
}
print "Word no of occurance";
foreach $key (keys %hash)
{
print $key."=".$hash{$key}."\n";
}
%hashn=();
foreach (@s)
{
unless(exists $hashn{$_} )
{
$hashn{$_}++;
}
else
{
push (@uniq,$_);
}
}
%hashne=();
foreach (@uniq)
{
$hashne{$_}=0;
}
print "Repeating word\n";
foreach $kys (keys %hashne)
{
print "$kys   ";
}

print "\n";