in reply to Sort undef

If sort works like this you can modify the returned array:  push @$ResultsFinal, shift @$ResultsFinal;

If have many of them you can also  push @$ResultsFinal, shift @$ResultsFinal until $$ResultsFinal[0];

PS or in the case undef has to be discarded you can @$ResultsFinal = ( sort {  ...  } grep {defined} @$ResultsFinal );

L*

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

In Section Seekers of Perl Wisdom