# replacing
my @union_arr; foreach my $arr_1(@arr_in_1) {push(@union_arr,$arr_1);}
# with this:
my @union_arr = @arr_in_1;