Select Code to Download

my $mysortref = do {
    my @littlesubs = (
...
    };
};
@results = sort $mysortref (keys %data);