Select Code to Download

  use strict ; use warnings ;
  use List::Util qw(max) ;
...

    print join(',', sort @popular), "\n" ;
  } ;