ynonp · April 25, 2012 05:49
diff --git a/a.pl b/a.pl
 while (<>) {
  chomp;
  print;
 }
diff --git a/arr.pl b/arr.pl
 use v5.14;

 my @arr = (10, 20, 30, 20, 25);
 my $sum = 0;

 foreach my $el (@arr) {
    $sum += $el;
 }

 foreach (@arr) {
    $sum += $_;
 }

 $sum += $_ for (@arr);
diff --git a/test.pl b/test.pl
 use v5.14;

 my @ext = qw/*.txt *.c/;

 unlink glob for (@ext);
	use v5.14;

	my @arr = (10, 20, 30, 20, 25);
	my $sum = 0;

	foreach my $el (@arr) {
	$sum += $el;
	}

	foreach (@arr) {
	$sum += $_;
	}

	$sum += $_ for (@arr);