use strict;
use warnings;

my $var = 3.141;
my @array = (1 ..5);

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

print "\$var: $var\n";
print "\@array: @array\n";

##</code><code>##

$var: 3.141
@array: 11 12 13 14 15