#!/usr/bin/perl -w
use strict;
my @array = (10, 20, 30, 40);
print "Before: @array\n";
foreach (@array) {
$_ *= 2;
}
print "After: @array\n";