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 $character (sort { my_name_sort($a->{name},$b->{name}) values %player_characters} { ... }

for my $color (sort { my_article_sort($a->{name},$b->{name}) values %colors} { ... }

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