sub hole{$m=pop;$m=($m,$_)[$m<$_]for@_;$m} # 32 sub hole{$m=pop;$_>$m&&($m=$_)for@_;$m} # 29 sub hole{$m=pop;$_>$m?$m=$_:1for@_;$m} # 28