Select Code to Download

my $value;
while (condition) # or for loop
{
  $value <op>= something;
}

my $sum; 
$sum += $_ for @nums;

my $valid;
while (<DATA>)
...
  next if /INVALID/;
  $valid .= $_;
}

my $product;
$product *= $_ for @nums;