# Depending on what my_sort does, you might also want to transform it
# in a similar way, to generate a key you can compare easily later,
# such as storing the show title with the article stripped off,
# casefolded.  As I don't know what it does, I'll just use this stub
# and leave that as a homework to the reader.
sub my_sort {
	my($a, $b) = @_;
	$a cmp $b;
}