my $v="V";
$_="_";
for ( $v ) {
    print "inside: $_\n";
}
print "outside: $_\n";