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