in reply to Need help in sorting the array

my @newArr = sort { (my $aa=$a)=~s/\D//g; (my $bb=$b)=~s/\D//g; $aa <=
+> $bb } @arr

[download]

In Section Seekers of Perl Wisdom