Select Code to Download

my @a = (1,2,3,4);
for my $i (@a) { $i = 5 };
print "@a";  # prints: 5 5 5 5

for my $i (1,2,3,4) { $i = 5 };