@data = numeric_sorter(2, @data)

sub alpha_sorter {
    my ($field_name, @data) = @_;

    my @sorted_items = sort {$a->{$field_name} <=> $b->{$field_name}} @data;

    return @sorted_items;
}