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