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