Select Code to Download

use strict;
use warnings;
...
print "(map{\$_=\$hash{\$_};if(\$_>\$max){\$max=\$_}}keys %hash)[2] re
+turns: '",
      (map{$_=$hash{$_};if($_>$max){$max=$_}} keys %hash)[2],
      "'\n\n";

defined(mytest()) is defined.
mytest() is false.
...
defined((map{$_=$hash{$_};if($_>50){$max=$_}}keys %hash)[2]) is define
+d.
(map{$_=$hash{$_};if($_>$max){$max=$_}}keys %hash)[2] is false.
(map{$_=$hash{$_};if($_>$max){$max=$_}}keys %hash)[2] returns: ''