Mega Code Archive

 

Categories / Perl / Statement

 

Foreach Loop Array Processing

#!/usr/local/bin/perl @digits = (1..10); foreach $number (@digits){    print $number;    $number += 10; } print "\n\n@digits";