@arr1 = map {$_ eq "" ? 0 : $_} @arr1;