while (<FILE_R>){
  chomp;
  push @rdata, $_;
}

while (<FILE_R>){
  chomp;
  push @rdata, $_;
}

my @sum = map {$rdata[$_] + $pdata[$_]} 0..$_#a;