my $packageVar = 5; foreach $packageVar (@someArr) { # Some code } print $packageVar; # Will print 5;