$_{$_}++ for @array;
print ( ( sort{ $_{$b} <=> $_{$a} } keys %_ )[0] );