#!/usr/local/bin/perl -w

@array = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11);
$i = 0;
foreach $val (@array){
    print "\$val has value of $val\n";
    next if ($val % 2 == 0);
    $val *= 2;
} continue {
    $i++;
    print "We've looked at $i values so far\n";
}
print "\@array now contains @array\n";