my @popular = (sort { $histogram{$a} <=> $histogram{$b} }  @unique)[0..2];
print "@popular\n";
__END__
apple oranges watermelon