use use;
 use my;
 use foreach;
 
 foreach my $var (@vars) ...