erez[11] dana[22] dana[0] erez[10] erez[1] erez[0] dana[10]

##</code><code>##

dana[0] dana[10] dana[22] erez[0] erez[1] erez[10] erez[11]

##</code><code>##

my @new_list=sort {(($a) cmp ($b)) & ($a =~ /\[(\d+)/)[0]<=> ($b =~ /\[(\d+)/)[0]} @split_list;