sub hole{map/^(.*?)\1+\z/s,@_}

##</code><code>##

sub hole{$,=pop;$,=$,<$_?$_:$,for@_;$,}

##</code><code>##

sub hole{$,=pop;$_<$,or$,=$_ for@_;$,}