Statement Perl

  1. Home
  2. Perl
  3. Statement
  4. 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";