Mega Code Archive

 

Categories / Perl / Statement

 

Using predefined variable $_ in foreach loop

#!/usr/bin/perl -w use strict; my @array = (10, 20, 30, 40); print "Before: @array\n"; foreach (@array) {      $_ *= 2; } print "After: @array\n";