Help for this page

Select Code to Download


  1. or download this
    my @sorted = sort { substr($a, 10) cmp substr($b, 10) } @data;