Help for this page

Select Code to Download

Select or download this

use Scalar::Util qw( refaddr );

defined(refaddr($sorted[0])) && refaddr($o) == refaddr($sorted[0])