use strict;
use warnings;
foreach $_ (my ($foo, $bar, $baz)) {
  $_ = "default";
}
print "$foo\n";