Select Code to Download

#!/usr/bin/perl 
use strict;
...
red
lilac
magenta

#!/usr/bin/perl 
use strict;
...
my @sorted   = sort $criteria @unsorted;

print "$_\n" for @sorted;