use strict;
use warnings;
use 5.010;


my %sort_by = (
    article => \&article_sorter,
    name    => \&name_sorter,
    subject => \&subject_sorter,
);

my @results = $sort_by{name} @data