use strict;
use warnings;
use 5.010;

my @arr1 = ("1", "", "");
my @arr2 = ("", "3", "4");


for my $index (0 .. 2) {
    no warnings 'numeric';
    say $arr1[$index] + $arr2[$index];
}
__END__
c:\test>junk
1
3
4