print +(sort { $a <=> $b } values %hash)[-1];