Select Code to Download

 
sub cmp_undef {
    my ( $a, $b ) = @_;
...
}

@$ResultsFinal = sort \&cmp_undef(...,...),  @$ResultsFinal;