Select Code to Download

PP(pp_padhv) {
    dSP; dTARGET;
...
    }
    RETURN;
}

PP(pp_padhv)
{
...
    }
    RETURN;
}

my @sorted = sort{ $a <=> $b } @names;

my @list_of_numerically_sorted_names = sort {
    $first_element_to_be_compared
    <=>
    $second_element to be compared
} @list_of_unsorted_names;