in reply to Check if object at start of array

use Scalar::Util qw( refaddr );

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

[download]

Scalar::Util

Update: Added defined check.

In Section Seekers of Perl Wisdom