@arr1 = map { push @arr1, ($_+ 2) } @data; #### sub mapsub { my @arr; @arr = map { ($_ + 2) } @data; }