Array Perl

  1. Home
  2. Perl
  3. Array
  4. Double each element of an array
#!/usr/bin/perl
use warnings;
use strict;
my @array=(10, 20, 30, 40);
print "Before: @array\n";
for (@array) { $_ *= 2 }
print "After: @array\n";