Select Code to Download

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

use strict;
use warnings;
use 5.010;
...

--output:--
3