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