my($foo, $bar) = (1,2);
foreach my $var ($foo, $bar) {
    $var += 4;
}
print "\$foo: $foo\n";
print "\$bar: $bar\n";
__END__
$foo: 5
$bar: 6