You ought to let us know what you've tried and where you're stuck. That way when we help you past the part you're stuck with, you can still turn it in as your own work, and you will have learned something along the way. Just asking for a solution will get you "our work", and leave you with a learning deficit that will need to be repaid before you comprehend the next assignment.

The most straightforward ways will probably use foreach or map, and will probably iterate over the indices of the array. But just for fun, here's a solution that you would never turn in, or put into production:

use strict;
use warnings;

my @array = qw( 0 1 3 2 3 4 2 );
my @sums;

for( "@array" ) {
  push @sums, $1 + $2 while m/(\d+)\s(?=(\d+))/g;
}

{
  local $" = ', ';
  print "[ @sums ]\n";
}
[download]