Select Code to Download

my $var;
my @vars = qw(one two three);
for $var (@vars) {subroutine()};
sub subroutine {print "var is $var\n"};

my $var;
my @vars = qw(one two three);
for (@vars) {$var = $_; subroutine()};
sub subroutine {print "var is $var\n"};