use strict;
use warnings;

my @array = (1 .. 10);

for my $var (@array) {
    $var *= 10;
}

print "@array";