Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
print join "\n",
  sort dictionary (qw(X10y x9y x bigboy y x11y bigbang bigBoy)),
  "\n";