Select Code to Download

$ perl -Mstrict -Mwarnings -E '
    use constant { FIRST => 0, SECOND => 1, THIRD => 2 };
...
A:C:1
A:D:2
A:D:1

$a->[LAST_NAME] cmp $b->[LAST_NAME] || $a->[FIRST_NAME] cmp $b->[FIRST
+_NAME]