my @x = (1..10);
foreach my $element (@x) {
    $element += 100;
}
print "@x"; 

OUTPUT: 
101 102 103 104 105 106 107 108 109 110