Select Code to Download

sub alpha_num_cmp 
{
...
      }
 return ($a <=> $b); #otherwise straight numeric comparison
}

#!usr/bin/perl -w
use strict;
...
1 2 2 3 4 4 5 5 8 10 20 88
an any sort
1 2 2 3 4 4 5 5 8 10 20 88