foreach (1 .. 3) {
    foo($_ + 1);
    print "$_\n";
}
                                                                                
sub foo {
    $_ = shift;
    $_ += 7;
}