Select Code to Download

for my $movie (sort { my_article_sort($a->{title},$b->{title}) values 
+%movies} { ... }
for my $alpha (sort { my_article_sort($a,$b) } keys %alpha_movies) { .
+.. }
...
for my $color (sort { my_article_sort($a->{name},$b->{name}) values %c
+olors} { ... }

my @files = (map("$data_dir$_",grep(/txt$/,sort { my_article_sort($a,$
+b) } readdir($directory))));

package Base::Sorts;
use strict;
...
    die "A sort type was not selected.";
  }
}