#!/bin/usr/perl -w
 use strict;
 print "Enter your input filename for original  sample data values: n";
 chomp($data=<STDIN>);
 print "Enter your input filename for adjustment valuesn";
 chomp($adj=<STDIN>) ;
 print "Enter your output filename for resultant adjusted new sample data n";
 chomp($new=<STDIN>);
 open(R1,"$data") or die("error");
 open(R2,"$adj") or die ("error");
 open(WW,"+>$new") or die ("error");
 while( ($line1=(<R1>)) && ($line2=(<R2>)) )
 {
 $l1=$line1;
 @arr1= split(" ",$l1);
 $l2=$line2;
 @arr2= split(" ",$l2);
 $l= ( scalar@arr1);
 $p= (scalar@arr2);

 for ( $i = 0; $i <= $l; $i++ ){
    for ( $j =($i+1); $j <= $l; $j++ ){

        if ($arr1[$i]< $arr1[$j]){
            $a = $arr1[$i] + ($arr2[$i]/2);
            $b = $arr1[$j] - ($arr2[$i]/2);
            push ( $arr1[$i]->$a , $arr1[$j]->$b);

        }
        elsif ( $arr1[$i]= $arr1[$j]){
            $a = $arr1[$i];
        $b = $arr1[$j];
            push ($arr1[$i]->$a,$arr1[$j]->$b);

        }
        else{
            $a = $arr1[$i]-($arr2[$i]/2);
        $b = $arr1[$j]+ ($arr2[$i]/2);
        push ($arr1[$i]->$a,$arr1[$j]->$b);

        }
    }

 }
 $l1 = scalar@arr1;
 for ($k = 0; $k <= $l1 ; $k++)
 {
 if (($k % 10) != 0){
    print  WW "$arr1[$k]";
    print  WW "t" ;
}
else {
    print WW "n";
    print WW "$arr1[$k]";
    print WW "t";
}

 }


 }
 close(R1);
 close(R2);
 close(WW);


 exit;

@array1
1 2 3 4 5 6 7 8 9 10

@array2
1 2 3 4 5 6 7 8 9 10 9 8 7 6 5 4 3 2

@array1
15 1.5 2 3 6 4 11.5 5 5.5

elsif ( $arr1[$i]= $arr1[$j]){

elsif ( $arr1[$i] == $arr1[$j]){

for ( $i = 0; $i <= $l; $i++ ){
    for ( $j =($i+1); $j <= $l; $j++ ){

        if ($arr1[$i]< $arr1[$j]){
            $a = $arr1[$i] + ($arr2[$i]/2);
            $b = $arr1[$j] - ($arr2[$i]/2);
#            push ( $arr1[$i]->$a , $arr1[$j]->$b);

        }
        elsif ( $arr1[$i] == $arr1[$j]){
            $a = $arr1[$i];
            $b = $arr1[$j];
#            push ($arr1[$i]->$a,$arr1[$j]->$b);

        }
        else{
            $a = $arr1[$i]-($arr2[$i]/2);
            $b = $arr1[$j]+ ($arr2[$i]/2);
#        push ($arr1[$i]->$a,$arr1[$j]->$b);

        }
        $arr1[$i] = $a;
        $arr1[$j] = $b;
    }

}