my $file_r = $ARGV[0];
my $file_r = $ARGV[1];
open FILE_R, "< $file_r" or die "Can't open $file_r : $!";
open FILE_P, "< $file_p" or die "Can't open $file_p : $!";

##</code><code>##

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

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

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