Select Code to Download

use warnings;
use strict;
...
  return 1 if $b->{author} eq $authors[0]->{author};
  return $a->{author} cmp $b->{author};
}

lisa: THIS BOOK FIRST
lisa: postmodernism
...
bart: skateboarding
homer: donuts
marge: hairstyles