Help for this page

Select Code to Download


  1. or download this
    my @pretty = sort
    {
    ...
             ( $a[1] && $b[1] && $a[1] <=> $b[1] ) ||
             ( $a[1] && 1 ) || ( $b[1] && -1 );
    } @not_so_pretty;