#!/usr/bin/perl -w

1   use strict;
2
3   my @list = qw(1 2 3 4 5);
4   my $each = "";
5   my $i = 0;
6   my @newlist = ();
7 
8   foreach $each (@list) {
9	$each *= 2;
10	$newlist[$i] = $each;
11	++$i;
12  }
13
14  for ($i= 0; $i<5; ++$i) {
15	print ($newlist[$i] - $list[$i], "\n");
16  }