#!/usr/bin/perl
use warnings;
use strict;

my @array=(10,20,30,40);
print: "Before: @array \n";
for(@array){$_*=2;}
print"After: @array\n";