my @newArr = sort { (my $aa=$a)=~s/\D//g; (my $bb=$b)=~s/\D//g; $aa <= +> $bb } @arr [download]
In reply to Re: Need help in sorting the array by keszler in thread Need help in sorting the array by perlCrazy