print "zweitmax: " . (sort{$a<=>$b} keys %hash)[-2] . "\n";