7 lines
151 B
Perl
7 lines
151 B
Perl
#!/usr/bin/perl
|
|
use warnings;
|
|
use strict;
|
|
my @array=(10, 20, 30, 40);
|
|
print "Before: @array\n";
|
|
for (@array) { $_ *= 2 }
|
|
print "After: @array\n"; |