Select Code to Download

#!/usr/bin/perl

...
    return $a_str cmp $b_str unless $a_str eq $b_str;
    return $a_num cmp $b_num;   
}