in reply to sorting an array

You could use this as a sort function: 
   ($a=~/(\d+)/)[0] <=> ($b=~/(\d+)/)[0]

[download]

     ..to maintain is to slowly feel your soul, sanity and sentience ebb away as you become one with the Evil.

In Section Seekers of Perl Wisdom