#!/usr/bin/perl
#A short script to add the elements of two arrays together. 
#I highly doubt it is the best way to do this.
#I don't know if a perl command exists for this.
#This is in the Public Domain

#Arrays are declared
my $toolong = "seperated by a space ";
print "Enter the value of the first array $toolong";
$tdin = <STDIN>;
print "Enter the value of the second array $toolong";
$din = <STDIN>;
$tdin = chomp($tdin);
$din = chomp($din);

#Creates arrays and calculates their length.
@rray1 = split(/ /, $tdin);
@rray2 = split(/ /, $din);
$l1 = @rray1;
$l2 = @rray2;

unless($l1 == $l2) {
die(print "ERROR: Arrays are different lengths"); #Error check
}

#Does the adding
for(0..$l1){
   push($sums) = $rray1[$_] + $rray2[$_];
}
for(0..$l1){
print $sums[$_];}