#!/usr/bin/perl

open(ONE, "fileon");
open(TWO, "filetwo");
open(NEW, ">newfile");

@ONE = <ONE>;
@TWO = <TWO>;
close(ONE);
close(TWO);

my $i;
my @new;

for $i in (@ONE) {
    $new[$i] = $ONE[$i];
    $new[$i] += $TWO[$i];
}

for $i in (@new) {
    print NEW "$i\n";
}