- or download this
erez[11] dana[22] dana[0] erez[10] erez[1] erez[0] dana[10]
- or download this
dana[0] dana[10] dana[22] erez[0] erez[1] erez[10] erez[11]
- or download this
my @new_list=sort {(($a) cmp ($b)) & ($a =~ /\[(\d+)/)[0]<=> ($b =~ /\
+[(\d+)/)[0]} @split_list;