use strict;

if (my $x = 1) { print "x = $x\n" }
# $x is not available outside of the if scope

# this works, but is it valid?
1 if my $y = 3;
print "y = $y\n";


for my $i (my @n = 1..3) { print "i = $i, n = (@n)\n" }
# @n is not available here

# the following code works as expected, but, again, is it valid?
@ARGV = qw(/ /usr//local /etc/ sbin/);
tr#/##s && s#(?<!^)/$## for my @copies = @ARGV;
print "$_\n" for @copies;