Mega Code Archive

 

Categories / Perl / Array

 

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";