u2-4.14 $ perl -MO=Deparse ./tst   
foreach $_ (my($foo, $bar, $baz)) {
    $_ = 'default';
}
./tst syntax OK