Select Code to Download

use strict;
use warnings;
...
               map  { [ $_, [ (/(\w+).(\d+)/) ] ] } @split_list;

print "After:  @new_list\n";

Before: erez[11] dana[22] dana[0] erez[10] erez[1] erez[0] dana[10]
After:  dana[0] dana[10] dana[22] erez[0] erez[1] erez[10] erez[11]