sub u{@h{@_}=@_;keys%h} 
 
print join "\t", u("fish","bread","eggs","eggs","fish","butter")
#butter  bread   fish    eggs

##</code><code>##

sub u{$h{$_}++for@_;grep$h{$_}<2,keys%h}