@data = numeric_sorter(2,4, @data)

sub numeric_sorter {
    my ($field_num, $field_num_secondary, @data) = @_;

    my @sorted_items = sort {
     if ($a->[$field_num] != $b->[$field_num]) {
$a->[$field_num] <=> $b->[$field_num]
} else {
$a->[$field_num_secondary] <=> $b->[$field_num_secondary] }} @data;

    return @sorted_items;
}