Select Code to Download

my $sort = 'hours'; # really comes from a switch

...
   ) {
   print join ", ", @$_;
}

my %map = (
    hours  => sub {sort { $_[0] <=> $_[0] } };,
...
    name   => sub {sort { $_[0] <=> $_[0] } };,
    task   => sub {sort { $_[0] <=> $_[0] } };,
);