Select Code to Download

#!/usr/bin/perl
use strict;
...
        map { my $x = $code{ $_ }; $_ => sub { my @x = $x->( $n, \@val
+ues ) } } keys %code
    };
}

    baseline => sub {
        my ( $n, $list ) = @_;
        return ( sort { $a <=> $b } @$list )[ @$list - $n .. $#$list ]
+;
    },