#!/usr/bin/perl -w

use strict;

my @a1=(10,9,8,7,6,5,4,3,2,1);
my @a2=reverse(9,8,7,6,5,4,3,2,1,0);
my @a3=(2,2,2,2,2,2,2,2,2,2);

sub asub {
  my ($k,$v1,$v2)=(0,$_[0],$_[1]);
  foreach (@$v1) { $$v1[$k++]=$_ - $$v2[$k]; } return $v1;
}

sub aadd {
  my ($k,$v1,$v2)=(0,$_[0],$_[1]);
  foreach (@$v1) { $$v1[$k++]=$_ + $$v2[$k]; } return $v1;
}

sub amult {
  my ($k,$v1,$v2)=(0,$_[0],$_[1]);
  foreach (@$v1) { $$v1[$k++]=$_ * $$v2[$k]; } return $v1;
}

sub adiv {
  my ($k,$v1,$v2)=(0,$_[0],$_[1]);
  foreach (@$v1) { $$v1[$k++]=$_ / $$v2[$k]; } return $v1;
}

my ($a1,$a2,$a3)=(\@a1,\@a2,\@a3);

my $res=aadd($a1,$a2);
print "res: @$res\n";
$res=adiv($res,$a3);
print "res: @$res\n";
[download]